diff options
-rw-r--r-- | Assistant/Threads/Committer.hs | 2 | ||||
-rw-r--r-- | Assistant/Types/Changes.hs | 5 |
2 files changed, 6 insertions, 1 deletions
diff --git a/Assistant/Threads/Committer.hs b/Assistant/Threads/Committer.hs index 8fe48bfb7..ea3f01fc5 100644 --- a/Assistant/Threads/Committer.hs +++ b/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 diff --git a/Assistant/Types/Changes.hs b/Assistant/Types/Changes.hs index 81fd527a6..c5680a0e6 100644 --- a/Assistant/Types/Changes.hs +++ b/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 |