diff --git a/Remote/Git.hs b/Remote/Git.hs
index 215cd590f8..32f6a1c7c1 100644
--- a/Remote/Git.hs
+++ b/Remote/Git.hs
@@ -321,7 +321,7 @@ copyFromRemote' r key file dest
 	 -}
 	feedprogressback a = ifM (isJust <$> sshCacheDir)
 		( feedprogressback' a
-		, bracketIO noop (const noop) (a $ const noop)
+		, a $ const noop
 		)
 	feedprogressback' a = do
 		u <- getUUID