From 394c60f94e1bc198e9c1f8dd984ed6bb6ea82606 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 15 Feb 2013 13:48:25 -0400 Subject: build fix --- Remote/Rsync.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'Remote') 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 -- cgit v1.2.3