diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2016-02-29 17:36:20 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-02-29 17:36:20 -0400 |
| commit | 0a0167491a436a8b62a0c12756f1f4173dfc226e (patch) | |
| tree | 88bf5a436411ad87992fa94463c6b0a1dd85063a /Annex/AdjustedBranch.hs | |
| parent | 2852f468a6a108df44060a233c0ae64d63dfac3b (diff) | |
remove debug
Diffstat (limited to 'Annex/AdjustedBranch.hs')
| -rw-r--r-- | Annex/AdjustedBranch.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/Annex/AdjustedBranch.hs b/Annex/AdjustedBranch.hs index 7ab98fc6f..c1820417d 100644 --- a/Annex/AdjustedBranch.hs +++ b/Annex/AdjustedBranch.hs @@ -129,8 +129,7 @@ commitAdjustedTree treesha parent = go =<< catCommit parent {- Update the currently checked out adjusted branch, merging the provided - branch into it. -} updateAdjustedBranch :: Branch -> (OrigBranch, Adjustment) -> Git.Branch.CommitMode -> Annex Bool -updateAdjustedBranch tomerge (origbranch, adj) commitmode = do - liftIO $ print ("updateAdjustedBranch", tomerge) +updateAdjustedBranch tomerge (origbranch, adj) commitmode = go =<< (,) <$> inRepo (Git.Ref.sha tomerge) <*> inRepo Git.Branch.current @@ -139,7 +138,6 @@ updateAdjustedBranch tomerge (origbranch, adj) commitmode = do ( do propigateAdjustedCommits origbranch adj adjustedtomerge <- adjust adj mergesha - liftIO $ print ("mergesha", mergesha, "adjustedtomerge", adjustedtomerge) ifM (inRepo $ Git.Branch.changed currbranch adjustedtomerge) ( ifM (autoMergeFrom adjustedtomerge (Just currbranch) commitmode) ( recommit currbranch mergesha =<< catCommit currbranch |