more efficient data type for ChangeChan

Making this a tset of lists of Changes, rather than a tset of Changes
makes refilling it, in batch mode, much more efficient. Rather than needing
to add every Change it's collected one at a time, it can add them in one
fast batch operation.

It would be more efficient yet to use a Set, but that would need an Eq
instance for InodeCache.
This commit is contained in:
Joey Hess 2013-04-23 14:30:54 -04:00
parent 14e554e29b
commit daecfd5bd7
2 changed files with 5 additions and 5 deletions

View file

@ -22,7 +22,7 @@ changeInfoKey (AddKeyChange k) = Just k
changeInfoKey (LinkChange (Just k)) = Just k
changeInfoKey _ = Nothing
type ChangeChan = TSet Change
type ChangeChan = TSet [Change]
newChangeChan :: IO ChangeChan
newChangeChan = atomically newTSet