convert PendingAddChange back to Change when an add fails

If an add failed, we should lose the KeySource, since it, presumably,
differs due to a change that was made to the file.

(The locked down file is already deleted.)

Assistant/Threads/Committer.hs

@@ -302,7 +302,7 @@ handleAdds delayadd cs = returnWhen (null incomplete) $ do
 			recordedInodeCache k
 
 	failedingest change = do
-		refill [change]
+		refill [retryChange change]
 		liftAnnex showEndFail
 		return Nothing
 

Assistant/Types/Changes.hs

@@ -63,6 +63,11 @@ isInProcessAddChange :: Change -> Bool
 isInProcessAddChange (InProcessAddChange {}) = True
 isInProcessAddChange _ = False
 
+retryChange :: Change -> Change
+retryChange (InProcessAddChange time ks) =
+	Change time (keyFilename ks) AddFileChange
+retryChange c = c
+
 finishedChange :: Change -> Key -> Change
 finishedChange c@(InProcessAddChange { keySource = ks }) k = Change
 	{ changeTime = changeTime c