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

Only save .mima-flags file if there are any flags

Browse source
This commit is contained in:
Joscha 2019-11-25 18:28:03 +00:00
parent 885d872539
commit 62336b60eb
1 changed files with 7 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

5
app/MimaAsm/Main.hs
View file

@ -3,6 +3,7 @@
module Main where module Main where
import Control.Monad.Trans.Class import Control.Monad.Trans.Class
import qualified Data.Map as Map
import qualified Data.Text as T import qualified Data.Text as T
import qualified Data.Text.IO as T import qualified Data.Text.IO as T
import Options.Applicative import Options.Applicative
@ -93,7 +94,9 @@ printFile name (RequiredFile path) =
lift $ T.putStrLn $ "Saving " <> name <> " to " <> T.pack path lift $ T.putStrLn $ "Saving " <> name <> " to " <> T.pack path
saveFlags :: RawFlags -> Settings -> Run () saveFlags :: RawFlags -> Settings -> Run ()
saveFlags flags settings = do saveFlags flags settings
| Map.null flags = lift $ putStrLn "No flags to save"
| otherwise = do
let file = getFlagFile settings let file = getFlagFile settings
printFile "flags" file printFile "flags" file
storeFile' file (formatFlagFile flags) storeFile' file (formatFlagFile flags)