aboutsummaryrefslogtreecommitdiff
path: root/Command/Commit.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-06-14 00:01:48 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-06-14 00:01:48 -0400
commite0095b0bdc88147a081f3539975f20096fd0ea3c (patch)
treefff3ef6f2684ccbb6d8b2b2d988c20bcba5ffca6 /Command/Commit.hs
parent89dad12b3510f2540c6678e68145d922c7db5a7b (diff)
fishy commit
Diffstat (limited to 'Command/Commit.hs')
-rw-r--r--Command/Commit.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Command/Commit.hs b/Command/Commit.hs
index f53ab7e09..d3ce3d7bb 100644
--- a/Command/Commit.hs
+++ b/Command/Commit.hs
@@ -22,7 +22,7 @@ seek = [withNothing start]
start :: CommandStart
start = next $ next $ do
Annex.Branch.commit "update"
- _ <- runhook =<< inRepo (Git.hookPath "annex-content")
+ _ <- runhook <=< inRepo $ Git.hookPath "annex-content"
return True
where
runhook (Just hook) = liftIO $ boolSystem hook []