fix display of transfers for remotes not in syncRemotes list

This commit is contained in:
Joey Hess 2012-10-14 14:51:11 -04:00
parent 6ea6a2e71c
commit 592d55ef7c
2 changed files with 2 additions and 5 deletions

View file

@ -67,8 +67,8 @@ onAdd st dstatus _ file _ = case parseTransferFile file of
[ "transfer starting:"
, show t
]
r <- headMaybe . filter (sameuuid t) . syncRemotes
<$> getDaemonStatus dstatus
r <- headMaybe . filter (sameuuid t)
<$> runThreadState st Remote.remoteList
updateTransferInfo dstatus t info
{ transferRemote = r }
sameuuid t r = Remote.uuid r == transferUUID t