From caf97fcffd0a1e934fef60c0cae878ee3813f81f Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Wed, 14 Mar 2012 12:01:56 -0400
Subject: git-annex-shell: Runs hooks/annex-content after content is received
 or dropped.

---
 Command/Commit.hs | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'Command/Commit.hs')

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
-- 
cgit v1.2.3