From 96613e85a9170c4854be890c4671c8620f253f8f Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Fri, 15 Feb 2013 13:48:25 -0400
Subject: [PATCH] build fix

---
 Remote/Rsync.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/Remote/Rsync.hs b/Remote/Rsync.hs
index 51e8b6ab79..21a4d4324a 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