diff options
author | Joey Hess <joey@kitenet.net> | 2012-01-06 21:53:47 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2012-01-06 21:53:47 -0400 |
commit | d9fdc76a144588b64811d62ee144aa8dde49c8d1 (patch) | |
tree | 1fb5b1518dc4ec056dfce9f91c9d173fd4ba0d60 | |
parent | 64f9d00bedd1d035ec3b465c24ee324184e0a792 (diff) |
layout
-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 } |