diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-02-15 13:48:25 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-02-15 13:48:25 -0400 |
| commit | 394c60f94e1bc198e9c1f8dd984ed6bb6ea82606 (patch) | |
| tree | 7d203cabb670536113aca0a285887fbd83569738 /Remote | |
| parent | e26746760639a6e6b8f072941f7f2c52efa11c25 (diff) | |
build fix
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 |