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

use a DList for the deferred downloads queue

Browse source
This commit is contained in:
Joey Hess 2013-04-25 01:09:37 -04:00
parent 82a6db8fe8
commit c6da464051
3 changed files with 7 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Assistant/Types/TransferQueue.hs
View file

@ -12,11 +12,12 @@ import Logs.Transfer
import Types.Remote
import Control.Concurrent.STM
import Utility.TList
data TransferQueue = TransferQueue
{ queuesize :: TVar Int
, queuelist :: TVar [(Transfer, TransferInfo)]
, deferreddownloads :: TVar [(Key, AssociatedFile)]
, deferreddownloads :: TList (Key, AssociatedFile)
}
data Schedule = Next | Later
@ -26,4 +27,4 @@ newTransferQueue :: IO TransferQueue
newTransferQueue = atomically $ TransferQueue
<$> newTVar 0
<*> newTVar []
<*> newTVar []
<*> newTList