Enable MOVEFILE_COPY_ALLOWED flag by default

haskell · Sep 19, 2024 · 51ec5dd · 51ec5dd
1 parent 7582869
commit 51ec5dd
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/System/Directory/Internal/Windows.hsc b/System/Directory/Internal/Windows.hsc
@@ -74,7 +74,7 @@ renamePathInternal opath npath =
   (`ioeSetOsPath` opath) `modifyIOError` do
     opath' <- furnishPath opath
     npath' <- furnishPath npath
-    Win32.moveFileEx opath' (Just npath') Win32.mOVEFILE_REPLACE_EXISTING
+    Win32.moveFileEx opath' (Just npath') (Win32.mOVEFILE_REPLACE_EXISTING .|. Win32.mOVEFILE_COPY_ALLOWED)
 
 -- On Windows, the removability of a file may be affected by the attributes of
 -- the file itself.