mirror of
https://github.com/github/semantic.git
synced 2024-12-23 06:41:45 +03:00
📝 Live.
This commit is contained in:
parent
1e546234f2
commit
38baddc489
@ -10,6 +10,7 @@ import Data.Set as Set
|
|||||||
import GHC.Generics
|
import GHC.Generics
|
||||||
import Unsafe.Coerce
|
import Unsafe.Coerce
|
||||||
|
|
||||||
|
-- | A set of live addresses (whether roots or reachable).
|
||||||
newtype Live l v = Live { unLive :: Set (Address l v) }
|
newtype Live l v = Live { unLive :: Set (Address l v) }
|
||||||
deriving (Eq, Foldable, Monoid, Ord, Semigroup, Show)
|
deriving (Eq, Foldable, Monoid, Ord, Semigroup, Show)
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user