diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-08-22 14:32:17 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-08-22 14:32:17 -0400 |
| commit | 68659f49983ca30a3c1a1a3f5e7da003f96741dc (patch) | |
| tree | 31e100dcd657840b9628b043681bdd4a7e48e1c1 /Assistant/Threads/Merger.hs | |
| parent | 5a68acb521bae0277b2c8a8ca023dc57a5ff4b33 (diff) | |
refactor
Diffstat (limited to 'Assistant/Threads/Merger.hs')
| -rw-r--r-- | Assistant/Threads/Merger.hs | 16 |
1 files changed, 1 insertions, 15 deletions
diff --git a/Assistant/Threads/Merger.hs b/Assistant/Threads/Merger.hs index 6e19218d9..6c33f4f20 100644 --- a/Assistant/Threads/Merger.hs +++ b/Assistant/Threads/Merger.hs @@ -12,15 +12,13 @@ module Assistant.Threads.Merger ( import Assistant.Common import Assistant.ThreadedMonad +import Assistant.Sync import Utility.DirWatcher import Utility.Types.DirWatcher -import qualified Annex.Branch import qualified Git -import qualified Git.Command import qualified Git.Merge import qualified Git.Branch import qualified Command.Sync -import qualified Remote thisThread :: ThreadName thisThread = "Merger" @@ -84,15 +82,3 @@ onAdd g file _ mergeBranch :: Git.Ref -> Git.Repo -> IO Bool mergeBranch = Git.Merge.mergeNonInteractive . Command.Sync.syncBranch - -{- Manually pull from remotes and merge their branches. Called by the pusher - - when a push fails, which can happen due to a remote not having pushed - - changes to us. That could be because it doesn't have us as a remote, or - - because the assistant is not running there, or other reasons. -} -manualPull :: (Maybe Git.Ref) -> [Remote] -> Annex () -manualPull currentbranch remotes = do - forM_ remotes $ \r -> - inRepo $ Git.Command.runBool "fetch" [Param $ Remote.name r] - Annex.Branch.forceUpdate - forM_ remotes $ \r -> - Command.Sync.mergeRemote r currentbranch |