Garmelon/mima-tools
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix how arguments are interpreted

Browse source 
Also adds the footer from mima-run to mima-asm.
This commit is contained in:
Joscha 2019-11-26 09:45:23 +00:00
parent 6712a9c32c
commit 365d7f0b5f
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
app/MimaAsm/Main.hs
View file

@ -42,7 +42,7 @@ getFlagFile settings =
False -> NoFile False -> NoFile
True -> OptionalFile discoveredPath True -> OptionalFile discoveredPath
where where
discoveredPath = dropExtension (infile settings) ++ ".mima-flags" discoveredPath = dropExtension (getOutfile settings) ++ ".mima-flags"
getSymbolFile :: Settings -> File getSymbolFile :: Settings -> File
getSymbolFile settings = getSymbolFile settings =
@ -52,7 +52,7 @@ getSymbolFile settings =
False -> NoFile False -> NoFile
True -> OptionalFile discoveredPath True -> OptionalFile discoveredPath
where where
discoveredPath = dropExtension (infile settings) ++ ".mima-symbols" discoveredPath = dropExtension (getOutfile settings) ++ ".mima-symbols"
{- Command-line parameters -} {- Command-line parameters -}
@ -81,7 +81,7 @@ settingsParser = Settings
<> help "A file containing label names and addresses, specified in the .mima-symbols format") <> help "A file containing label names and addresses, specified in the .mima-symbols format")
opts :: ParserInfo Settings opts :: ParserInfo Settings
opts = info (helper <*> settingsParser) $ fullDesc <> failureCode 1 opts = info (helper <*> settingsParser) $ fullDesc <> failureCode 1 <> footer flagFooter
{- Saving supplemental files -} {- Saving supplemental files -}