github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-28 10:15:55 +03:00
Code Issues Projects Releases Wiki Activity

Define Listable instances for Context & Empty.

Browse Source
This commit is contained in:
Rob Rix 2017-10-23 10:32:32 -04:00
parent 662eb608a7
commit 0184f57713
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
test/Data/Functor/Listable.hs
View File

@ -318,9 +318,15 @@ instance Listable1 Statement.Return where
instance Listable1 Syntax.Context where
liftTiers tiers = liftCons2 (liftTiers tiers) tiers Syntax.Context
instance Listable a => Listable (Syntax.Context a) where
tiers = tiers1
instance Listable1 Syntax.Empty where
liftTiers _ = cons0 Syntax.Empty
instance Listable a => Listable (Syntax.Empty a) where
tiers = tiers1
instance Listable1 Syntax.Identifier where
liftTiers _ = cons1 Syntax.Identifier