diff options
Diffstat (limited to 'Command/TransferInfo.hs')
| -rw-r--r-- | Command/TransferInfo.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Command/TransferInfo.hs b/Command/TransferInfo.hs index d102be55e..2b5713d77 100644 --- a/Command/TransferInfo.hs +++ b/Command/TransferInfo.hs @@ -49,8 +49,8 @@ start (k:[]) = do , transferUUID = u , transferKey = key } - info <- liftIO $ startTransferInfo file - (update, tfile, _) <- mkProgressUpdater t info + tinfo <- liftIO $ startTransferInfo file + (update, tfile, _) <- mkProgressUpdater t tinfo liftIO $ mapM_ void [ tryIO $ forever $ do bytes <- readUpdate |