diff --git a/Assistant/Threads/TransferPoller.hs b/Assistant/Threads/TransferPoller.hs index 12394373fa..8839045df7 100644 --- a/Assistant/Threads/TransferPoller.hs +++ b/Assistant/Threads/TransferPoller.hs @@ -42,7 +42,7 @@ transferPollerThread st dstatus = do fromIntegral . fileSize <$> getFileStatus f when (bytesComplete info /= sz && isJust sz) $ - updateTransferInfo dstatus t info + alterTransferInfo dstatus t info { bytesComplete = sz } {- can't poll uploads -} | otherwise = noop diff --git a/Assistant/Threads/TransferWatcher.hs b/Assistant/Threads/TransferWatcher.hs index 31116a7243..fe8af9aad0 100644 --- a/Assistant/Threads/TransferWatcher.hs +++ b/Assistant/Threads/TransferWatcher.hs @@ -64,7 +64,7 @@ onAdd st dstatus file _ = case parseTransferFile file of ] r <- headMaybe . filter (sameuuid t) . knownRemotes <$> getDaemonStatus dstatus - alterTransferInfo dstatus t info + updateTransferInfo dstatus t info { transferRemote = r } sameuuid t r = Remote.uuid r == transferUUID t