diff options
-rw-r--r-- | Remote/Git.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/Remote/Git.hs b/Remote/Git.hs index b741918ee..7054319f5 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) |