diff options
-rw-r--r-- | Annex/AutoMerge.hs | 1 | ||||
-rw-r--r-- | Command/ResolveMerge.hs | 4 |
2 files changed, 4 insertions, 1 deletions
diff --git a/Annex/AutoMerge.hs b/Annex/AutoMerge.hs index 660d79f63..c19011e2d 100644 --- a/Annex/AutoMerge.hs +++ b/Annex/AutoMerge.hs @@ -8,6 +8,7 @@ module Annex.AutoMerge ( autoMergeFrom , resolveMerge + , commitResolvedMerge ) where import Common.Annex diff --git a/Command/ResolveMerge.hs b/Command/ResolveMerge.hs index b1091e981..a50e2aa9d 100644 --- a/Command/ResolveMerge.hs +++ b/Command/ResolveMerge.hs @@ -30,7 +30,9 @@ start = do them <- fromMaybe (error nomergehead) . extractSha <$> liftIO (readFile merge_head) ifM (resolveMerge (Just us) them) - ( next $ next $ return True + ( do + void $ commitResolvedMerge Git.Branch.ManualCommit + next $ next $ return True , error "Merge conflict could not be automatically resolved." ) where |