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

📝 Store.

Browse Source
This commit is contained in:
Rob Rix 2017-12-20 17:16:01 -05:00
parent d156b2d1d1
commit ba6d00f900
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

@ -10,6 +10,7 @@ import Data.Pointed
import Data.Semigroup import Data.Semigroup
import GHC.Generics import GHC.Generics
-- | A map of addresses onto cells holding their values.
newtype Store l a = Store { unStore :: Map.Map l (Cell l a) } newtype Store l a = Store { unStore :: Map.Map l (Cell l a) }
deriving (Generic1, Monoid, Semigroup) deriving (Generic1, Monoid, Semigroup)