[commit: ghc] wip/nfs-locking: Use mv command to move files (374d7b1)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/nfs-locking
Link       : http://ghc.haskell.org/trac/ghc/changeset/374d7b124f474ff8bf6b327fb63cb41860f2aef3/ghc

>---------------------------------------------------------------

commit 374d7b124f474ff8bf6b327fb63cb41860f2aef3
Author: Andrey Mokhov <andrey.mokhov at gmail.com>
Date:   Mon Jul 17 01:35:18 2017 +0100

    Use mv command to move files
    
    See #345


>---------------------------------------------------------------

374d7b124f474ff8bf6b327fb63cb41860f2aef3
 src/Util.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Util.hs b/src/Util.hs
index 5f60fc1..e873ddc 100644
--- a/src/Util.hs
+++ b/src/Util.hs
@@ -115,7 +115,7 @@ copyFileUntracked source target = do
 moveFile :: FilePath -> FilePath -> Action ()
 moveFile source target = do
     putProgressInfo $ renderAction "Move file" source target
-    liftIO $ IO.renameFile source target
+    quietly $ cmd ["mv", source, target]
 
 -- | Remove a file that doesn't necessarily exist.
 removeFile :: FilePath -> Action ()