refactoring and minor performance tweak

This commit is contained in:
Joey Hess 2013-04-24 17:46:46 -04:00
parent 7fa2d255da
commit b8e45ec9d7
2 changed files with 12 additions and 8 deletions

View file

@ -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