diff options
Diffstat (limited to 'Checks.hs')
-rw-r--r-- | Checks.hs | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -24,8 +24,8 @@ dontCheck :: CommandCheck -> Command -> Command dontCheck check cmd = mutateCheck cmd $ \c -> filter (/= check) c addCheck :: Annex () -> Command -> Command -addCheck check cmd = mutateCheck cmd $ - \c -> CommandCheck (length c + 100) check : c +addCheck check cmd = mutateCheck cmd $ \c -> + CommandCheck (length c + 100) check : c mutateCheck :: Command -> ([CommandCheck] -> [CommandCheck]) -> Command mutateCheck cmd@(Command { cmdcheck = c }) a = cmd { cmdcheck = a c } |