diff options
Diffstat (limited to 'Remote')
| -rw-r--r-- | Remote/Rsync.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/Remote/Rsync.hs b/Remote/Rsync.hs index 51e8b6ab7..21a4d4324 100644 --- a/Remote/Rsync.hs +++ b/Remote/Rsync.hs @@ -221,7 +221,9 @@ rsyncSend o callback k canrename src = withRsyncScratchDir $ \tmp -> do let dest = tmp </> Prelude.head (keyPaths k) liftIO $ createDirectoryIfMissing True $ parentDir dest ok <- if canrename - then liftIO $ renameFile src dest + then do + liftIO $ renameFile src dest + return True else ifM crippledFileSystem ( liftIO $ copyFileExternal src dest , do |