summaryrefslogtreecommitdiff
path: root/Command/Commit.hs
diff options
context:
space:
mode:
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 []