diff options
Diffstat (limited to 'Assistant/Changes.hs')
| -rw-r--r-- | Assistant/Changes.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/Assistant/Changes.hs b/Assistant/Changes.hs index 0a93d6335..9daef511b 100644 --- a/Assistant/Changes.hs +++ b/Assistant/Changes.hs @@ -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 |