avoid possibly re-adding a removed transfer when updating its info

Doesn't fix the bug I thought it'd fix, but is clearly correct.

Assistant/DaemonStatus.hs

@@ -191,19 +191,21 @@ adjustTransfersSTM dstatus a = do
 	s <- takeTMVar dstatus
 	putTMVar dstatus $ s { currentTransfers = a (currentTransfers s) }
 
-{- Updates a transfer's info.
+{- Alters a transfer's info, if the transfer is in the map. -}
- - Preserves the transferTid and transferPaused values,
+alterTransferInfo :: DaemonStatusHandle -> Transfer -> TransferInfo -> IO ()
- - which are not written to disk. -}
+alterTransferInfo dstatus t info = updateTransferInfo' dstatus $
+	M.adjust (mergeTransferInfo info) t
+
+{- Updates a transfer's info. Adds the transfer to the map if necessary. -}
 updateTransferInfo :: DaemonStatusHandle -> Transfer -> TransferInfo -> IO ()
-updateTransferInfo dstatus t info =
+updateTransferInfo dstatus t info = updateTransferInfo' dstatus $
+	M.insertWith' mergeTransferInfo t info
+
+updateTransferInfo' :: DaemonStatusHandle -> (TransferMap -> TransferMap) -> IO ()
+updateTransferInfo' dstatus a =
 	notifyTransfer dstatus `after` modifyDaemonStatus_ dstatus go
 	where
-		go s = s { currentTransfers = update (currentTransfers s) }
+		go s = s { currentTransfers = a (currentTransfers s) }
-		update m = M.insertWith' merge t info m
-		merge new old = new
-			{ transferTid = maybe (transferTid new) Just (transferTid old)
-			, transferPaused = transferPaused new || transferPaused old
-			}
 
 {- Removes a transfer from the map, and returns its info. -}
 removeTransfer :: DaemonStatusHandle -> Transfer -> IO (Maybe TransferInfo)

Assistant/Threads/TransferPoller.hs

@@ -41,8 +41,7 @@ transferPollerThread st dstatus = do
 				sz <- catchMaybeIO $
 					fromIntegral . fileSize
 						<$> getFileStatus f
-				when (bytesComplete info /= sz && isJust sz) $ do
+				when (bytesComplete info /= sz && isJust sz) $
-					putStrLn $ "download size " ++ show sz
 					updateTransferInfo dstatus t info
 						{ bytesComplete = sz }
 			{- can't poll uploads -}

Assistant/Threads/TransferWatcher.hs

@@ -64,7 +64,7 @@ onAdd st dstatus file _ = case parseTransferFile file of
 				]
 			r <- headMaybe . filter (sameuuid t) . knownRemotes
 				<$> getDaemonStatus dstatus
-			updateTransferInfo dstatus t info
+			alterTransferInfo dstatus t info
 				{ transferRemote = r }
 		sameuuid t r = Remote.uuid r == transferUUID t
 

Logs/Transfer.hs

@@ -215,6 +215,14 @@ readTransferInfo mpid s =
 		(bits, filebits) = splitAt 1 $ lines s 
 		filename = join "\n" filebits
 
+{- Preserves the old transferTid and transferPaused values,
+ - which are not written to disk. -}
+mergeTransferInfo :: TransferInfo -> TransferInfo -> TransferInfo
+mergeTransferInfo new old = new
+	{ transferTid = maybe (transferTid new) Just (transferTid old)
+	, transferPaused = transferPaused new || transferPaused old
+	}
+
 parsePOSIXTime :: String -> Maybe POSIXTime
 parsePOSIXTime s = utcTimeToPOSIXSeconds
 	<$> parseTime defaultTimeLocale "%s%Qs" s