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

Respect flags during execution

Browse source
This commit is contained in:
Joscha 2020-03-28 19:49:45 +00:00
parent 7397a0fecd
commit 564bc44d51
2 changed files with 32 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

4
mima-run/Main.hs
View file

@ -16,12 +16,12 @@ main = runOrExit 2 $ do
initialState <- loadMimaState $ inputFile opts
finalState <- liftIO $ case steps opts of
Nothing -> do
let (finalState, abortReason, stepsMade) = execute initialState
let (finalState, abortReason, stepsMade) = execute mempty initialState
putStrLn $ "Stopped after " ++ show stepsMade ++ " steps, reason:"
T.putStrLn $ toText abortReason
pure finalState
Just n -> do
let (finalState, mAbortReason, stepsMade) = executeN n initialState
let (finalState, mAbortReason, stepsMade) = executeN n mempty initialState
putStrLn $ "Stopped after " ++ show stepsMade ++ " steps, reason:"
case mAbortReason of
Nothing -> putStrLn "Ran out of steps"