converted copy and move

Got a little tricky..
This commit is contained in:
Joey Hess 2015-07-09 15:23:14 -04:00
parent 032e6485fa
commit 8ad927dbc6
8 changed files with 136 additions and 81 deletions

View file

@ -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