1
1
mirror of https://github.com/github/semantic.git synced 2024-12-22 06:11:49 +03:00

Note that the gc traces.

This commit is contained in:
Rob Rix 2017-12-21 14:22:28 -05:00
parent 955c4e8bd4
commit 2bb6c78526

View File

@ -26,7 +26,7 @@ evCollect ev0 ev' yield e = do
modifyStore (gc (roots <> valueRoots v))
pure v
-- | Collect any addresses in the store not rooted in the given 'Live' set.
-- | Collect any addresses in the store not rooted in or reachable from the given 'Live' set.
gc :: ( Ord (LocationFor a)
, Foldable (Cell (LocationFor a))
, ValueRoots (LocationFor a) a