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.
2012-08-28 14:19:11 -04:00 · 2012-08-28 14:19:11 -04:00 · 1296cfb09a
commit 1296cfb09a
parent 7024a973b2
4 changed files with 22 additions and 13 deletions
--- 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
-			updateTransferInfo dstatus t info
+			alterTransferInfo dstatus t info
 				{ transferRemote = r }
 		sameuuid t r = Remote.uuid r == transferUUID t