summaryrefslogtreecommitdiff
path: root/Command/Commit.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Command/Commit.hs')
-rw-r--r--Command/Commit.hs7
1 files changed, 6 insertions, 1 deletions
diff --git a/Command/Commit.hs b/Command/Commit.hs
index 2bb016ea0..19b0bc250 100644
--- a/Command/Commit.hs
+++ b/Command/Commit.hs
@@ -7,8 +7,10 @@
module Command.Commit where
+import Common.Annex
import Command
import qualified Annex.Branch
+import qualified Git
def :: [Command]
def = [command "commit" paramNothing seek
@@ -20,4 +22,7 @@ seek = [withNothing start]
start :: CommandStart
start = next $ next $ do
Annex.Branch.commit "update"
- return True
+ runhook =<< (inRepo $ Git.hookPath "annex-content")
+ where
+ runhook (Just hook) = liftIO $ boolSystem hook []
+ runhook Nothing = return True