github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-30 10:27:45 +03:00
Code Issues Projects Releases Wiki Activity

Define a Show1 instance for IntMap-based Table.

Browse Source
This commit is contained in:
Rob Rix 2017-08-31 23:22:18 -04:00
parent 216381fb4c
commit 6929b6955d
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Data/Syntax/Assignment/Table/IntMap.hs
View File

@ -1,6 +1,7 @@
module Data.Syntax.Assignment.Table.IntMap where
import Data.Bifunctor (first)
import Data.Functor.Classes
import qualified Data.IntMap as IntMap
data Table i a = Table { tableAddresses :: [i], tableBranches :: IntMap.IntMap a }
@ -18,3 +19,7 @@ toList Table{..} = first toEnum <$> IntMap.toList tableBranches
lookup :: Enum i => i -> Table i a -> Maybe a
lookup i = IntMap.lookup (fromEnum i) . tableBranches
instance (Enum i, Show i) => Show1 (Table i) where
liftShowsPrec spA slA d t = showsBinaryWith showsPrec (const (liftShowList spA slA)) "Table" d (tableAddresses t) (toList t)