From 62336b60eb6c58fafd51b71dca2c83a9b615ef49 Mon Sep 17 00:00:00 2001 From: Joscha Date: Mon, 25 Nov 2019 18:28:03 +0000 Subject: [PATCH] Only save .mima-flags file if there are any flags --- app/MimaAsm/Main.hs | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/app/MimaAsm/Main.hs b/app/MimaAsm/Main.hs index f0d1b0d..ad133a4 100644 --- a/app/MimaAsm/Main.hs +++ b/app/MimaAsm/Main.hs @@ -3,6 +3,7 @@ module Main where import Control.Monad.Trans.Class +import qualified Data.Map as Map import qualified Data.Text as T import qualified Data.Text.IO as T import Options.Applicative @@ -93,10 +94,12 @@ printFile name (RequiredFile path) = lift $ T.putStrLn $ "Saving " <> name <> " to " <> T.pack path saveFlags :: RawFlags -> Settings -> Run () -saveFlags flags settings = do - let file = getFlagFile settings - printFile "flags" file - storeFile' file (formatFlagFile flags) +saveFlags flags settings + | Map.null flags = lift $ putStrLn "No flags to save" + | otherwise = do + let file = getFlagFile settings + printFile "flags" file + storeFile' file (formatFlagFile flags) saveSymbols :: LabelSpec -> Settings -> Run () saveSymbols labels settings = do