github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-22 14:21:31 +03:00
Code Issues Projects Releases Wiki Activity

📝 liveInsert.

Browse Source
This commit is contained in:
Rob Rix 2017-12-20 16:23:33 -05:00
parent 2e65116f11
commit dae3e8caa3
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/Data/Abstract/Live.hs
View File

@ -18,6 +18,7 @@ newtype Live l v = Live { unLive :: Set (Address l v) }
liveSingleton :: Address l v -> Live l v
liveSingleton = Live . Set.singleton
-- | Insert an address into a 'Live' set.
liveInsert :: Ord l => Address l v -> Live l v -> Live l v
liveInsert addr = Live . Set.insert addr . unLive