diff --git a/Annex/AutoMerge.hs b/Annex/AutoMerge.hs index 35156eafff..b673a5e6fe 100644 --- a/Annex/AutoMerge.hs +++ b/Annex/AutoMerge.hs @@ -129,7 +129,10 @@ resolveMerge' unstagedmap (Just us) them u = do | keyUs /= keyThem -> resolveby [keyUs, keyThem] $ do makeannexlink keyUs LsFiles.valUs makeannexlink keyThem LsFiles.valThem - liftIO $ nukeFile file + -- cleanConflictCruft can't handle unlocked + -- files, so delete here. + unless (islocked LsFiles.valUs) $ + liftIO $ nukeFile file | otherwise -> do -- Only resolve using symlink when both -- were locked, otherwise use unlocked