Add replaceFile

Author: zlonast

System/Directory.hs

@@ -50,6 +50,7 @@ module System.Directory
     , copyFile
     , copyFileWithMetadata
     , getFileSize
+    , replaceFile
 
     , canonicalizePath
     , makeAbsolute

System/Directory/Internal/Posix.hsc

@@ -85,6 +85,9 @@ removePathInternal False = Posix.removeLink . getOsString
 renamePathInternal :: OsPath -> OsPath -> IO ()
 renamePathInternal (OsString p1) (OsString p2) = Posix.rename p1 p2
 
+replaceFileInternal :: OsPath -> OsPath -> Maybe OsPath -> IO ()
+replaceFileInternal (OsString p1) (OsString p2) _ = Posix.rename p1 p2
+
 -- On POSIX, the removability of a file is only affected by the attributes of
 -- the containing directory.
 filesAlwaysRemovable :: Bool

System/Directory/Internal/Windows.hsc

@@ -98,6 +98,14 @@ renamePathInternal opath npath =
     npath' <- furnishPath npath
     Win32.moveFileEx opath' (Just npath') Win32.mOVEFILE_REPLACE_EXISTING
 
+replaceFileInternal :: OsPath -> OsPath -> Maybe OsPath -> IO ()
+replaceFileInternal replacedFile replacementFile mBackupFile =
+  (`ioeSetOsPath` replacedFile) `modifyIOError` do
+    replacedFile'    <- furnishPath replacedFile
+    replacementFile' <- furnishPath replacementFile
+    mBackupFile'     <- fmap furnishPath mBackupFile
+    Win32.replaceFile replacedFile' replacementFile' mBackupFile' Win32.rEPLACEFILE_IGNORE_MERGE_ERRORS
+
 -- On Windows, the removability of a file may be affected by the attributes of
 -- the file itself.
 filesAlwaysRemovable :: Bool

System/Directory/OsPath.hs

@@ -52,6 +52,7 @@ module System.Directory.OsPath
     , copyFile
     , copyFileWithMetadata
     , getFileSize
+    , replaceFile
 
     , canonicalizePath
     , makeAbsolute
@@ -709,6 +710,69 @@ renamePath opath npath =
   (`ioeAddLocation` "renamePath") `modifyIOError` do
     renamePathInternal opath npath
 
+-- | 'replaceFile' replaces one file with another file. The replacement file
+-- assumes the name of the replaced file and its identity.
+--
+-- This operation is atomic.
+--
+-- On the unix same as renamePath, on the Windows platform this is ReplaceFileW.
+--
+-- The operation on unix may fail with:
+--
+-- * @HardwareFault@
+-- A physical I\/O error has occurred.
+-- @[EIO]@
+--
+-- * @InvalidArgument@
+-- Either operand is not a valid file name.
+-- @[ENAMETOOLONG, ELOOP]@
+--
+-- * 'isDoesNotExistError'
+-- The original file does not exist, or there is no path to the target.
+-- @[ENOENT, ENOTDIR]@
+--
+-- * 'isPermissionError'
+-- The process has insufficient privileges to perform the operation.
+-- @[EROFS, EACCES, EPERM]@
+--
+-- * 'System.IO.isFullError'
+-- Insufficient resources are available to perform the operation.
+-- @[EDQUOT, ENOSPC, ENOMEM, EMLINK]@
+--
+-- * @UnsatisfiedConstraints@
+-- Implementation-dependent constraints are not satisfied.
+-- @[EBUSY]@
+--
+-- * @UnsupportedOperation@
+-- The implementation does not support renaming in this situation.
+-- @[EXDEV]@
+--
+-- * @InappropriateType@
+-- Either the destination path refers to an existing directory, or one of the
+-- parent segments in the destination path is not a directory.
+-- @[ENOTDIR, EISDIR, EINVAL, EEXIST, ENOTEMPTY]@
+--
+-- The operation on Windows may fail with:
+--
+-- ERROR_UNABLE_TO_MOVE_REPLACEMENT 1176 (0x498)
+-- The replacement file could not be renamed. The replaced file no longer exists
+-- and the replacement file exists under its original name.
+-- 
+-- ERROR_UNABLE_TO_MOVE_REPLACEMENT_2 1177 (0x499)
+-- 
+-- The replacement file could not be moved. The replacement file still exists
+-- under its original name; however, it has inherited the file streams and
+-- attributes from the file it is replacing. The file to be replaced still
+-- exists with a different name.
+--
+-- ERROR_UNABLE_TO_REMOVE_REPLACED 1175 (0x497)
+-- The replaced file could not be deleted. The replaced and replacement files
+-- retain their original file names.
+replaceFile :: OsPath -> OsPath -> IO ()
+replaceFile opath npath =
+  (`ioeAddLocation` "replaceFile") `modifyIOError` do
+    replaceFileInternal opath npath Nothing
+
 -- | Copy a file with its permissions.  If the destination file already exists,
 -- it is replaced atomically.  Neither path may refer to an existing
 -- directory.  No exceptions are thrown if the permissions could not be

directory.cabal

@@ -63,7 +63,7 @@ Library
         file-io  >= 0.1.4 && < 0.2,
         time     >= 1.8.0 && < 1.15,
     if os(windows)
-        build-depends: Win32 >= 2.14.1.0 && < 2.15
+        build-depends: Win32 >= 2.14.2.0 && < 2.15
     else
         build-depends: unix >= 2.8.0 && < 2.9