diff --git a/Assistant/Threads/Merger.hs b/Assistant/Threads/Merger.hs index ff98cce5fe..5d40edea74 100644 --- a/Assistant/Threads/Merger.hs +++ b/Assistant/Threads/Merger.hs @@ -1,6 +1,6 @@ {- git-annex assistant git merge thread - - - Copyright 2012 Joey Hess + - Copyright 2012-2017 Joey Hess - - Licensed under the GNU GPL version 3 or higher. -} @@ -15,6 +15,7 @@ import Utility.DirWatcher.Types import qualified Annex.Branch import qualified Git import qualified Git.Branch +import qualified Git.Ref import qualified Command.Sync {- This thread watches for changes to .git/refs/, and handles incoming @@ -63,19 +64,14 @@ onChange file diverged <- liftAnnex Annex.Branch.forceUpdate when diverged $ queueDeferredDownloads "retrying deferred download" Later - -- Merge only from /synced/ branches, which are pushed by git-annex - -- sync and by remote instances of the assistant. - -- It would be nice to merge other remote tracking branches, - -- but it's hard to get an efficient list of them (git remote -r) - | "/synced/" `isInfixOf` file = mergecurrent - | otherwise = noop + | otherwise = mergecurrent where changedbranch = fileToBranch file mergecurrent = mergecurrent' =<< liftAnnex (join Command.Sync.getCurrBranch) mergecurrent' currbranch@(Just b, _) - | equivBranches changedbranch b = + | changedbranch `isRelatedTo` b = whenM (liftAnnex $ inRepo $ Git.Branch.changed b changedbranch) $ do debug [ "merging", Git.fromRef changedbranch @@ -88,10 +84,17 @@ onChange file changedbranch mergecurrent' _ = noop -equivBranches :: Git.Ref -> Git.Ref -> Bool -equivBranches x y = base x == base y +{- Is the first branch a synced branch or remote tracking branch related + - to the second branch, which should be merged into it? -} +isRelatedTo :: Git.Ref -> Git.Ref -> Bool +isRelatedTo x y + | basex /= takeDirectory basex ++ "/" ++ basey = False + | "/synced/" `isInfixOf` Git.fromRef x = True + | "refs/remotes/" `isPrefixOf` Git.fromRef x = True + | otherwise = False where - base = takeFileName . Git.fromRef + basex = Git.fromRef $ Git.Ref.base x + basey = Git.fromRef $ Git.Ref.base y isAnnexBranch :: FilePath -> Bool isAnnexBranch f = n `isSuffixOf` f diff --git a/CHANGELOG b/CHANGELOG index 4991c8d33a..791034fe85 100644 --- a/CHANGELOG +++ b/CHANGELOG @@ -22,6 +22,9 @@ git-annex (6.20170520) UNRELEASED; urgency=medium * Fix bug that prevented transfer locks from working when run on SMB or other filesystem that does not support fcntl locks and hard links. + * assistant: Merge changes from refs/remotes/foo/master into master. + Previously, only sync branches were merged. This makes regular git push + into a repository watched by the assistant auto-merge. -- Joey Hess Wed, 24 May 2017 14:03:40 -0400