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

Define a Term type for TSX.

Browse Source
This commit is contained in:
Rob Rix 2019-10-18 16:08:31 -04:00
parent 00411293a5
commit da2bb2ffb4
No known key found for this signature in database
GPG Key ID: F188A01508EA1CF7
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Language/TSX/Term.hs
View File

@ -1,8 +1,10 @@
{-# LANGUAGE DataKinds #-}
module Language.TSX.Term
( Syntax
, Term(..)
) where
import Data.Sum (Sum)
import qualified Data.Syntax as Syntax
import qualified Data.Syntax.Comment as Comment
import qualified Data.Syntax.Declaration as Declaration
@ -10,6 +12,7 @@ import qualified Data.Syntax.Expression as Expression
import qualified Data.Syntax.Literal as Literal
import qualified Data.Syntax.Statement as Statement
import qualified Data.Syntax.Type as Type
import qualified Data.Term as Term
import qualified Language.TSX.Syntax as TSX.Syntax
type Syntax =
@ -181,3 +184,6 @@ type Syntax =
, TSX.Syntax.MetaProperty
, TSX.Syntax.AnnotatedExpression
]
newtype Term ann = Term { getTerm :: Term.Term (Sum Syntax) ann }