diff --git a/Remote/Git.hs b/Remote/Git.hs
index b741918eeb..7054319f56 100644
--- a/Remote/Git.hs
+++ b/Remote/Git.hs
@@ -321,6 +321,7 @@ copyFromRemote' r key file dest
 	feedprogressback a = ifM (isJust <$> sshCacheDir)
 		( feedprogressback' a
 		, bracketIO noop (const noop) $ a const
+		)
 	feedprogressback' a = do
 		u <- getUUID
 		let fields = (Fields.remoteUUID, fromUUID u)