mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

more efficient uuid to remote lookup

Browse source
This commit is contained in:
Joey Hess 2013-04-02 16:39:11 -04:00
parent 7b6cf1981f
commit 47950cdf31
1 changed files with 1 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Assistant/Threads/TransferWatcher.hs
View file

@ -62,10 +62,8 @@ onAdd file = case parseTransferFile file of
go _ Nothing = noop -- transfer already finished go _ Nothing = noop -- transfer already finished
go t (Just info) = do go t (Just info) = do
debug [ "transfer starting:", describeTransfer t info ] debug [ "transfer starting:", describeTransfer t info ]
r <- headMaybe . filter (sameuuid t) r <- liftAnnex $ Remote.remoteFromUUID $ transferUUID t
<$> liftAnnex Remote.remoteList
updateTransferInfo t info { transferRemote = r } updateTransferInfo t info { transferRemote = r }
sameuuid t r = Remote.uuid r == transferUUID t
{- Called when a transfer information file is updated. {- Called when a transfer information file is updated.
- -