github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-24 00:42:33 +03:00
Code Issues Projects Releases Wiki Activity

parameterize TSX program with Err

Browse Source
This commit is contained in:
Ayman Nadeem 2020-04-29 13:56:26 -04:00
parent 00b6a00492
commit effeebaee1
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
semantic-tsx/src/Language/TSX.hs
View File

@ -5,14 +5,15 @@ module Language.TSX
, Language.TSX.Grammar.tree_sitter_tsx , Language.TSX.Grammar.tree_sitter_tsx
) where ) where
import qualified AST.Parse as Parse
import qualified AST.Unmarshal as TS
import Data.Proxy import Data.Proxy
import qualified Language.TSX.AST as TSX import qualified Language.TSX.AST as TSX
import qualified Language.TSX.Tags as TsxTags import qualified Language.TSX.Tags as TsxTags
import qualified Tags.Tagging.Precise as Tags import qualified Tags.Tagging.Precise as Tags
import qualified Language.TSX.Grammar (tree_sitter_tsx) import qualified Language.TSX.Grammar (tree_sitter_tsx)
import qualified AST.Unmarshal as TS
newtype Term a = Term { getTerm :: TSX.Program a } newtype Term a = Term { getTerm :: TSX.Program Err a }
instance TS.SymbolMatching Term where instance TS.SymbolMatching Term where
matchedSymbols _ = TS.matchedSymbols (Proxy :: Proxy TSX.Program) matchedSymbols _ = TS.matchedSymbols (Proxy :: Proxy TSX.Program)