summaryrefslogtreecommitdiff
path: root/Assistant/Changes.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2013-04-24 17:46:46 -0400
committerGravatar Joey Hess <joey@kitenet.net>2013-04-24 17:46:46 -0400
commit5ac5539703cf6e9ffea31b2f2bba3c4fe4862569 (patch)
tree11069098f0f74e3d7e4e077d2d8f856774cdcdd0 /Assistant/Changes.hs
parentd265917659b09e30d7ad0db345621b9b06288274 (diff)
refactoring and minor performance tweak
Diffstat (limited to 'Assistant/Changes.hs')
-rw-r--r--Assistant/Changes.hs3
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