diff options
Diffstat (limited to 'Assistant/Types/TransferQueue.hs')
-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 |