From 6cb4743cfb105427a00b551ebd51fc5c9626bfea Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Wed, 14 Mar 2012 12:39:09 -0400
Subject: ignore hook exit status

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

(limited to 'Command')

diff --git a/Command/Commit.hs b/Command/Commit.hs
index 19b0bc250..1c82ed7df 100644
--- a/Command/Commit.hs
+++ b/Command/Commit.hs
@@ -22,7 +22,8 @@ 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 []
 		runhook Nothing = return True
-- 
cgit v1.2.3