diff options
Diffstat (limited to 'Remote/Helper')
-rw-r--r-- | Remote/Helper/Ssh.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Remote/Helper/Ssh.hs b/Remote/Helper/Ssh.hs index cbb78ee81..546e28048 100644 --- a/Remote/Helper/Ssh.hs +++ b/Remote/Helper/Ssh.hs @@ -106,8 +106,8 @@ rsyncHelper m params = do a <- case m of Nothing -> return $ rsync params Just meter -> do - h <- mkProgressHandler meter - return $ rsyncProgress h params + oh <- mkOutputHandler + return $ rsyncProgress oh meter params ifM (liftIO a) ( return True , do |