github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-26 08:25:19 +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 Data.Span
import qualified Data.Syntax as Syntax import qualified Data.Syntax as Syntax
import qualified Data.Syntax.Comment as Comment import qualified Data.Syntax.Comment as Comment
import qualified Data.Syntax.Declaration as Declaration
import qualified Data.Syntax.Statement as Statement import qualified Data.Syntax.Statement as Statement
import Data.Text as T (Text, pack) import Data.Text as T (Text, pack)
import qualified Data.Text.Encoding as T import qualified Data.Text.Encoding as T
@ -301,6 +302,12 @@ instance Listable1 f => Listable1 (Union '[f]) where
instance Listable1 Comment.Comment where instance Listable1 Comment.Comment where
liftTiers _ = cons1 Comment.Comment 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 instance Listable1 Statement.If where
liftTiers tiers = liftCons3 tiers tiers tiers Statement.If liftTiers tiers = liftCons3 tiers tiers tiers Statement.If