diff options
Diffstat (limited to 'Annex/AdjustedBranch.hs')
-rw-r--r-- | Annex/AdjustedBranch.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Annex/AdjustedBranch.hs b/Annex/AdjustedBranch.hs index 43af5d372..a70c3a75d 100644 --- a/Annex/AdjustedBranch.hs +++ b/Annex/AdjustedBranch.hs @@ -238,8 +238,9 @@ updateAdjustedBranch tomerge (origbranch, adj) commitmode = catchBoolIO $ void $ propigateAdjustedCommits' origbranch (adj, currbranch) commitsprevented adjustedtomerge <- adjust adj mergesha ifM (inRepo $ Git.Branch.changed currbranch adjustedtomerge) - ( return $ + ( return $ do -- Run after commit lock is dropped. + liftIO $ print ("autoMergeFrom", adjustedtomerge, (Just currbranch)) ifM (autoMergeFrom adjustedtomerge (Just currbranch) commitmode) ( preventCommits $ \_ -> recommit currbranch mergesha =<< catCommit currbranch |