github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-03 04:51:57 +03:00
Code Issues Projects Releases Wiki Activity

📝 storeSize.

Browse Source
This commit is contained in:
Rob Rix 2017-12-20 17:20:45 -05:00
parent 82468ec491
commit 6ba82ee2da
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/Store.hs
View File

@ -36,6 +36,7 @@ storeLookupAll address = fmap toList . storeLookup address
storeInsert :: (Ord l, Semigroup (Cell l a), Pointed (Cell l)) => Address l a -> a -> Store l a -> Store l a storeInsert :: (Ord l, Semigroup (Cell l a), Pointed (Cell l)) => Address l a -> a -> Store l a -> Store l a
storeInsert (Address address) value = Store . Map.insertWith (<>) address (point value) . unStore storeInsert (Address address) value = Store . Map.insertWith (<>) address (point value) . unStore
-- | The number of addresses extant in a 'Store'.
storeSize :: Store l a -> Int storeSize :: Store l a -> Int
storeSize = Map.size . unStore storeSize = Map.size . unStore