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

Rename wonkily-named function

Browse source
This commit is contained in:
Joscha 2019-11-12 21:23:23 +00:00
parent b569cee71f
commit c887e57dbd
2 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

4
app/MimaRun/Main.hs
View file

@ -60,12 +60,12 @@ runMima settings s =
case steps settings of
Nothing -> do
putStrLn "Running until HALT or execution exception..."
let (s', e, x) = run impotentChecks s
let (s', e, x) = run noFlags s
putStrLn $ "Ran for " ++ show x ++ " steps"
T.putStrLn $ toText e
pure s'
Just n -> do
let (s', me, x) = runN impotentChecks n s
let (s', me, x) = runN noFlags n s
putStrLn $ "Ran for " ++ show x ++ " steps"
case me of
Nothing -> putStrLn "Encountered no exception"