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

Derive Eq & Show instances for Table.

Browse Source
This commit is contained in:
Rob Rix 2017-08-31 23:12:29 -04:00
parent 4d07a6d7f2
commit fcbefe2a11
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Data/Syntax/Assignment/Table/Array.hs
View File

@ -15,7 +15,7 @@ import GHC.Stack
import Prelude hiding (lookup) import Prelude hiding (lookup)
data Table i a = Table { tableAddresses :: [i], tableBranches :: Array i (Maybe a) } data Table i a = Table { tableAddresses :: [i], tableBranches :: Array i (Maybe a) }
deriving (Foldable, Functor, Traversable) deriving (Eq, Foldable, Functor, Show, Traversable)
singleton :: Ix i => i -> a -> Table i a singleton :: Ix i => i -> a -> Table i a
singleton i a = Table [i] (listArray (i, i) [Just a]) singleton i a = Table [i] (listArray (i, i) [Just a])