use removeDirGeneric here too for consistency

And because it might be more robust on windows.
This commit is contained in:
Joey Hess 2020-10-23 16:11:39 -04:00
parent f167851628
commit b2bf099aa3
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
2 changed files with 12 additions and 2 deletions

View file

@ -195,8 +195,7 @@ store d chunkconfig k b p = liftIO $ do
- down. -}
finalizeStoreGeneric :: FilePath -> FilePath -> FilePath -> IO ()
finalizeStoreGeneric d tmp dest = do
void $ tryIO $ allowWrite dest -- may already exist
void $ tryIO $ removeDirectoryRecursive dest -- or not exist
removeDirGeneric d dest
createDirectoryUnder d (parentDir dest)
renameDirectory tmp dest
-- may fail on some filesystems