mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

tell moveFile to overwrite existing files

Browse source
This commit is contained in:
Joey Hess 2014-01-29 17:19:46 -04:00
parent 1ad3c1b2b3
commit e40a119e74
1 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
Utility/PosixFiles.hs
View file

@ -19,12 +19,15 @@ import System.PosixCompat.Files as X hiding (rename)
#ifndef mingw32_HOST_OS #ifndef mingw32_HOST_OS
import System.Posix.Files (rename) import System.Posix.Files (rename)
#else #else
import System.Win32.File (moveFile) import qualified System.Win32.File as Win32
#endif #endif
{- System.PosixCompat.Files.rename on Windows calls renameFile, {- 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 #ifdef mingw32_HOST_OS
rename :: FilePath -> FilePath -> IO () rename :: FilePath -> FilePath -> IO ()
rename = moveFile rename src dest = Win32.moveFileEx src dest Win32.mOVEFILE_REPLACE_EXISTING
#endif #endif