From 473d3f2ed5f60469f621fccbc823f7e301486f29 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Wed, 29 Jan 2014 17:19:46 -0400
Subject: tell moveFile to overwrite existing files

---
 Utility/PosixFiles.hs | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

(limited to 'Utility')

diff --git a/Utility/PosixFiles.hs b/Utility/PosixFiles.hs
index 2c1a05a6a..23edc25c9 100644
--- a/Utility/PosixFiles.hs
+++ b/Utility/PosixFiles.hs
@@ -19,12 +19,15 @@ import System.PosixCompat.Files as X hiding (rename)
 #ifndef mingw32_HOST_OS
 import System.Posix.Files (rename)
 #else
-import System.Win32.File (moveFile)
+import qualified System.Win32.File as Win32
 #endif
 
 {- System.PosixCompat.Files.rename on Windows calls renameFile,
- - so cannot rename directories. Instead, use Win32 moveFile, which can. -}
+ - so cannot rename directories. 
+ -
+ - Instead, use Win32 moveFile, which can. It needs to be told to overwrite
+ - any existing file. -}
 #ifdef mingw32_HOST_OS
 rename :: FilePath -> FilePath -> IO ()
-rename = moveFile
+rename src dest = Win32.moveFileEx src dest Win32.mOVEFILE_REPLACE_EXISTING
 #endif
-- 
cgit v1.2.3