Fix build on Windows

Thanks to bug reporter for the patch.
This commit is contained in:
Joey Hess 2020-11-19 12:33:00 -04:00
parent 9cb250f7be
commit 4b739fc460
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
8 changed files with 11 additions and 8 deletions

View file

@ -258,7 +258,7 @@ removeDirGeneric topdir dir = do
#ifdef mingw32_HOST_OS
{- Windows needs the files inside the directory to be writable
- before it can delete them. -}
void $ tryIO $ mapM_ allowWrite =<< dirContents dir
void $ tryIO $ mapM_ (allowWrite . toRawFilePath) =<< dirContents dir
#endif
tryNonAsync (removeDirectoryRecursive dir) >>= \case
Right () -> return ()
@ -446,7 +446,7 @@ retrieveExportWithContentIdentifierM dir loc cid dest mkkey p =
#ifndef mingw32_HOST_OS
=<< getFdStatus fd
#else
=<< getFileStatus f
=<< R.getFileStatus f
#endif
guardSameContentIdentifiers cont cid currcid