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 case steps settings of
Nothing -> do Nothing -> do
putStrLn "Running until HALT or execution exception..." 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" putStrLn $ "Ran for " ++ show x ++ " steps"
T.putStrLn $ toText e T.putStrLn $ toText e
pure s' pure s'
Just n -> do 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" putStrLn $ "Ran for " ++ show x ++ " steps"
case me of case me of
Nothing -> putStrLn "Encountered no exception" Nothing -> putStrLn "Encountered no exception"

8
src/Mima/Flag.hs
View file

@ -20,7 +20,7 @@ module Mima.Flag
, Flags(..) , Flags(..)
, rawFlags , rawFlags
, flagChecks , flagChecks
, impotentChecks , noFlags
) where ) where
import Data.List import Data.List
@ -127,9 +127,9 @@ flagChecks m =
} }
in conditions <*> (getAddressSpec <$> rawFlags) in conditions <*> (getAddressSpec <$> rawFlags)
-- | Flag checks that should not alter the behaviour of the MiMa. -- | These checks should behave as if no flags were set at all.
impotentChecks :: Flags (MimaAddress -> Bool) noFlags :: Flags (MimaAddress -> Bool)
impotentChecks = Flags noFlags = Flags
{ flagBreakpoint = const False { flagBreakpoint = const False
, flagExecutable = const True , flagExecutable = const True
, flagReadOnly = const False , flagReadOnly = const False