diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-04-25 01:33:44 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-04-25 01:33:44 -0400 |
| commit | 6c8f6abbd5f1227fdbb7b8c93f257dca9b6a1372 (patch) | |
| tree | 6ee22bd09c565135bbf5bde65efbaba640accae3 /Assistant/Changes.hs | |
| parent | 2efb559c7cdce21fb441343c26af4855b6ac842f (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.hs | 2 |
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. -} |