diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-04-24 17:46:46 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-04-24 17:46:46 -0400 |
| commit | 5ac5539703cf6e9ffea31b2f2bba3c4fe4862569 (patch) | |
| tree | 11069098f0f74e3d7e4e077d2d8f856774cdcdd0 /Assistant/Changes.hs | |
| parent | d265917659b09e30d7ad0db345621b9b06288274 (diff) | |
refactoring and minor performance tweak
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 |