aboutsummaryrefslogtreecommitdiff
path: root/Assistant/Changes.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2013-04-25 01:33:44 -0400
committerGravatar Joey Hess <joey@kitenet.net>2013-04-25 01:33:44 -0400
commit6c8f6abbd5f1227fdbb7b8c93f257dca9b6a1372 (patch)
tree6ee22bd09c565135bbf5bde65efbaba640accae3 /Assistant/Changes.hs
parent2efb559c7cdce21fb441343c26af4855b6ac842f (diff)
use DList for the transfer queue
Some nice efficiency gains here for list appending, although mostly the small size of the transfer queue makes them irrelivant.
Diffstat (limited to 'Assistant/Changes.hs')
-rw-r--r--Assistant/Changes.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Assistant/Changes.hs b/Assistant/Changes.hs
index 9daef511b..2ecd2036c 100644
--- a/Assistant/Changes.hs
+++ b/Assistant/Changes.hs
@@ -32,7 +32,7 @@ getChanges = (atomically . getTList) <<~ changePool
{- Gets all unhandled changes, without blocking. -}
getAnyChanges :: Assistant [Change]
-getAnyChanges = (atomically . readTList) <<~ changePool
+getAnyChanges = (atomically . takeTList) <<~ changePool
{- Puts unhandled changes back into the pool.
- Note: Original order is not preserved. -}