clean up cruft in assistant fast rename code path

1 files changed, 6 insertions, 1 deletions

diff --git a/Annex/Ingest.hs b/Annex/Ingest.hs
index 36930baf4..b2eb27616 100644
--- a/Annex/Ingest.hs
+++ b/Annex/Ingest.hs
@@ -150,7 +150,7 @@ ingest (Just (LockedDown lockingfile source)) = withTSDelta $ \delta -> do
 		case r of
 			LinkAnnexFailed -> failure "failed to link to annex"
 			_ -> do
-				finishIngestUnlocked key source
+				finishIngestUnlocked' key source
 				success key (Just cache) s
 	gounlocked _ _ _ = failure "failed statting file"
 
@@ -181,6 +181,11 @@ finishIngestDirect key source = do
 
 finishIngestUnlocked :: Key -> KeySource -> Annex ()
 finishIngestUnlocked key source = do
+	cleanCruft source
+	finishIngestUnlocked' key source
+
+finishIngestUnlocked' :: Key -> KeySource -> Annex ()
+finishIngestUnlocked' key source = do
 	Database.Keys.addAssociatedFile key (keyFilename source)
 	populateAssociatedFiles key source