remove unnecessary bracketIO
This commit is contained in:
parent
66fe5beac2
commit
796c2f6bc8
1 changed files with 1 additions and 1 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Reference in a new issue