summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-01-06 21:53:47 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-01-06 21:53:47 -0400
commitd9fdc76a144588b64811d62ee144aa8dde49c8d1 (patch)
tree1fb5b1518dc4ec056dfce9f91c9d173fd4ba0d60
parent64f9d00bedd1d035ec3b465c24ee324184e0a792 (diff)
layout
-rw-r--r--Checks.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/Checks.hs b/Checks.hs
index 9d846842d..94ee75291 100644
--- a/Checks.hs
+++ b/Checks.hs
@@ -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 }