refactoring and minor performance tweak
This commit is contained in:
parent
7fa2d255da
commit
b8e45ec9d7
2 changed files with 12 additions and 8 deletions
|
@ -42,3 +42,6 @@ refillChanges cs = (atomically . flip appendTList cs) <<~ changePool
|
|||
{- Records a change to the pool. -}
|
||||
recordChange :: Change -> Assistant ()
|
||||
recordChange c = (atomically . flip snocTList c) <<~ changePool
|
||||
|
||||
recordChanges :: [Change] -> Assistant ()
|
||||
recordChanges = refillChanges
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue