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

Add support for flags in execution

Browse source
This commit is contained in:
Joscha 2019-11-12 12:17:26 +00:00
parent 86f8b723b5
commit 9caa8298fc
4 changed files with 244 additions and 80 deletions
Download patch file Download diff file Expand all files Collapse all files

5
app/MimaRun/Main.hs
View file

@ -4,6 +4,7 @@ import Control.Monad
import qualified Data.Text.IO as T
import Options.Applicative
import Mima.Flag
import Mima.Load
import Mima.State
import Mima.Util
@ -59,12 +60,12 @@ runMima settings s =
case steps settings of
Nothing -> do
putStrLn "Running until HALT or execution exception..."
let (s', e, x) = run s
let (s', e, x) = run impotentChecks s
putStrLn $ "Ran for " ++ show x ++ " steps"
T.putStrLn $ toText e
pure s'
Just n -> do
let (s', me, x) = runN n s
let (s', me, x) = runN impotentChecks n s
putStrLn $ "Ran for " ++ show x ++ " steps"
case me of
Nothing -> putStrLn "Encountered no exception"