mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

refactoring and minor performance tweak

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

3
Assistant/Changes.hs
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