diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-09-16 23:09:08 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-09-16 23:09:08 -0400 |
| commit | ba744c84a4f683e50bf4c9b8c388e3a611f7fb91 (patch) | |
| tree | 5f2e3a717ae629c9cb1ca14da59d97e7e8aae366 /Assistant/Threads/Merger.hs | |
| parent | 2081a31fdaf8b76df6bdee82f48ec1e3105f5abe (diff) | |
better name for fallback sync refs
Don't expose these as branches in refs/heads/. Instead hide them away in
refs/synced/ where only show-ref will find them.
Make unused only look at branches and tags, not these other things,
so it won't care if some stale sync ref used to use a file.
This means they don't need to be deleted, which could have
led to an incoming sync being missed.
Diffstat (limited to 'Assistant/Threads/Merger.hs')
| -rw-r--r-- | Assistant/Threads/Merger.hs | 18 |
1 files changed, 6 insertions, 12 deletions
diff --git a/Assistant/Threads/Merger.hs b/Assistant/Threads/Merger.hs index 52db625cd..ce1ff1c7b 100644 --- a/Assistant/Threads/Merger.hs +++ b/Assistant/Threads/Merger.hs @@ -15,18 +15,17 @@ import qualified Annex.Branch import qualified Git import qualified Git.Merge import qualified Git.Branch -import qualified Git.Command as Git thisThread :: ThreadName thisThread = "Merger" -{- This thread watches for changes to .git/refs/heads/synced/, - - which indicate incoming pushes. It merges those pushes into the - - currently checked out branch. -} +{- This thread watches for changes to .git/refs/, looking for + - incoming pushes. It merges those pushes into the currently + - checked out branch. -} mergeThread :: ThreadState -> NamedThread mergeThread st = thread $ do g <- runThreadState st $ fromRepo id - let dir = Git.localGitDir g </> "refs" </> "heads" </> "synced" + let dir = Git.localGitDir g </> "refs" createDirectoryIfMissing True dir let hook a = Just $ runHandler g a let hooks = mkWatchHooks @@ -82,11 +81,6 @@ onAdd g file _ , show current ] void $ Git.Merge.mergeNonInteractive changedbranch g - when ("fallback/" `isInfixOf` (show changedbranch)) $ - void $ Git.runBool "branch" - [ Param "-D" - , Param $ show changedbranch - ] g go _ = noop equivBranches :: Git.Ref -> Git.Ref -> Bool @@ -100,6 +94,6 @@ isAnnexBranch f = n `isSuffixOf` f n = "/" ++ show Annex.Branch.name fileToBranch :: FilePath -> Git.Ref -fileToBranch f = Git.Ref $ "refs" </> "heads" </> base +fileToBranch f = Git.Ref $ "refs" </> base where - base = Prelude.last $ split "/refs/heads/" f + base = Prelude.last $ split "/refs/" f |