diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-04-25 01:09:37 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-04-25 01:26:23 -0400 |
| commit | 2efb559c7cdce21fb441343c26af4855b6ac842f (patch) | |
| tree | d8dab63676c7704e79ad83c680c9bf77f67b4439 /Assistant/Types | |
| parent | 74c30fc1a6e88d926d07e12f4e7ffc7d897bf9f6 (diff) | |
use a DList for the deferred downloads queue
Diffstat (limited to 'Assistant/Types')
| -rw-r--r-- | Assistant/Types/TransferQueue.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/Assistant/Types/TransferQueue.hs b/Assistant/Types/TransferQueue.hs index 6620ebdf6..706c64bbb 100644 --- a/Assistant/Types/TransferQueue.hs +++ b/Assistant/Types/TransferQueue.hs @@ -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 |