github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-25 16:02:43 +03:00
Code Issues Projects Releases Wiki Activity

Define Listable1 instances for Functions & Methods.

Browse Source
This commit is contained in:
Rob Rix 2017-09-25 19:25:14 -04:00
parent f274a9dd7d
commit 8e674538e3
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -40,6 +40,7 @@ import Data.Source
import Data.Span
import qualified Data.Syntax as Syntax
import qualified Data.Syntax.Comment as Comment
import qualified Data.Syntax.Declaration as Declaration
import qualified Data.Syntax.Statement as Statement
import Data.Text as T (Text, pack)
import qualified Data.Text.Encoding as T
@ -301,6 +302,12 @@ instance Listable1 f => Listable1 (Union '[f]) where
instance Listable1 Comment.Comment where
liftTiers _ = cons1 Comment.Comment
instance Listable1 Declaration.Function where
liftTiers tiers = liftCons3 tiers (liftTiers tiers) tiers Declaration.Function
instance Listable1 Declaration.Method where
liftTiers tiers = liftCons4 tiers tiers (liftTiers tiers) tiers Declaration.Method
instance Listable1 Statement.If where
liftTiers tiers = liftCons3 tiers tiers tiers Statement.If