diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2015-03-20 14:52:58 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-03-20 14:52:58 -0400 |
| commit | 9cd0833c28e4e8f9d4f45b3913e7540bdbeacb91 (patch) | |
| tree | 7bd7442a613311a0b442b06208912d10fcc5f4e4 /Annex/Branch.hs | |
| parent | 6d9ef07751656dfd996ff283570054586469bc99 (diff) | |
Added a post-update-annex hook, which is run after the git-annex branch is updated. Needed for git update-server-info.
Diffstat (limited to 'Annex/Branch.hs')
| -rw-r--r-- | Annex/Branch.hs | 19 |
1 files changed, 12 insertions, 7 deletions
diff --git a/Annex/Branch.hs b/Annex/Branch.hs index 6ce711996..7cd86c581 100644 --- a/Annex/Branch.hs +++ b/Annex/Branch.hs @@ -55,6 +55,7 @@ import Annex.ReplaceFile import qualified Annex.Queue import Annex.Branch.Transitions import qualified Annex +import Annex.Hook {- Name of the branch that is used to store git-annex's information. -} name :: Git.Ref @@ -166,13 +167,16 @@ updateTo pairs = do mapM_ checkBranchDifferences refs mergeIndex jl refs let commitrefs = nub $ fullname:refs - unlessM (handleTransitions jl localtransitions commitrefs) $ do - ff <- if dirty - then return False - else inRepo $ Git.Branch.fastForward fullname refs - if ff - then updateIndex jl branchref - else commitIndex jl branchref merge_desc commitrefs + ifM (handleTransitions jl localtransitions commitrefs) + ( runAnnexHook postUpdateAnnexHook + , do + ff <- if dirty + then return False + else inRepo $ Git.Branch.fastForward fullname refs + if ff + then updateIndex jl branchref + else commitIndex jl branchref merge_desc commitrefs + ) liftIO cleanjournal {- Gets the content of a file, which may be in the journal, or in the index @@ -384,6 +388,7 @@ setIndexSha ref = do f <- fromRepo gitAnnexIndexStatus liftIO $ writeFile f $ fromRef ref ++ "\n" setAnnexFilePerm f + runAnnexHook postUpdateAnnexHook {- Stages the journal into the index and returns an action that will - clean up the staged journal files, which should only be run once |