From 981aeac8f51e07b3e6757b45076dc2bebe1d5e3a Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 14 May 2013 13:58:17 -0400 Subject: fix --- Remote/Git.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Remote') diff --git a/Remote/Git.hs b/Remote/Git.hs index c1fba967a..215cd590f 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 + , bracketIO noop (const noop) (a $ const noop) ) feedprogressback' a = do u <- getUUID -- cgit v1.2.3