diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-03-14 12:01:56 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-03-14 12:01:56 -0400 |
| commit | caf97fcffd0a1e934fef60c0cae878ee3813f81f (patch) | |
| tree | 1e2d900df40934a3672b48fb33ad570f01841573 /Command/Commit.hs | |
| parent | 59e2feeda146bd37057db42862c4a4efbaf6e95e (diff) | |
git-annex-shell: Runs hooks/annex-content after content is received or dropped.
Diffstat (limited to 'Command/Commit.hs')
| -rw-r--r-- | Command/Commit.hs | 7 |
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 |