We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
2 parents 0b2c5f2 + 806b33c commit 4fb3efeCopy full SHA for 4fb3efe
src/System/PosixCompat/Files.hsc
@@ -392,7 +392,11 @@ readSymbolicLink _ = unsupported "readSymbolicLink"
392
-- Renaming
393
394
rename :: FilePath -> FilePath -> IO ()
395
+#if MIN_VERSION_Win32(2, 6, 0)
396
+rename name1 name2 = moveFileEx name1 (Just name2) mOVEFILE_REPLACE_EXISTING
397
+#else
398
rename name1 name2 = moveFileEx name1 name2 mOVEFILE_REPLACE_EXISTING
399
+#endif
400
401
-- -----------------------------------------------------------------------------
402
-- chown()
0 commit comments