From 365d7f0b5f7e7fc349d9597d80def95356433e60 Mon Sep 17 00:00:00 2001 From: Joscha Date: Tue, 26 Nov 2019 09:45:23 +0000 Subject: [PATCH] Fix how arguments are interpreted Also adds the footer from mima-run to mima-asm. --- app/MimaAsm/Main.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/app/MimaAsm/Main.hs b/app/MimaAsm/Main.hs index ad133a4..c8dcbe6 100644 --- a/app/MimaAsm/Main.hs +++ b/app/MimaAsm/Main.hs @@ -42,7 +42,7 @@ getFlagFile settings = False -> NoFile True -> OptionalFile discoveredPath where - discoveredPath = dropExtension (infile settings) ++ ".mima-flags" + discoveredPath = dropExtension (getOutfile settings) ++ ".mima-flags" getSymbolFile :: Settings -> File getSymbolFile settings = @@ -52,7 +52,7 @@ getSymbolFile settings = False -> NoFile True -> OptionalFile discoveredPath where - discoveredPath = dropExtension (infile settings) ++ ".mima-symbols" + discoveredPath = dropExtension (getOutfile settings) ++ ".mima-symbols" {- Command-line parameters -} @@ -81,7 +81,7 @@ settingsParser = Settings <> help "A file containing label names and addresses, specified in the .mima-symbols format") opts :: ParserInfo Settings -opts = info (helper <*> settingsParser) $ fullDesc <> failureCode 1 +opts = info (helper <*> settingsParser) $ fullDesc <> failureCode 1 <> footer flagFooter {- Saving supplemental files -}