fix alterTransferInfo

don't want to stomp over fields other than the ones being changed
2012-08-31 12:14:16 -04:00 · 2012-08-31 12:14:16 -04:00 · 4004baafaf
commit 4004baafaf
parent 34aeecb78a
3 changed files with 10 additions and 16 deletions
--- 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) $
-					alterTransferInfo dstatus t info
-						{ bytesComplete = sz }
+					alterTransferInfo dstatus t $
+						\i -> i { bytesComplete = sz }
 			{- can't poll uploads -}
 			| otherwise = noop