From effeebaee18b0c8686597199a04894b81acbf3ee Mon Sep 17 00:00:00 2001 From: Ayman Nadeem Date: Wed, 29 Apr 2020 13:56:26 -0400 Subject: [PATCH] parameterize TSX program with Err --- semantic-tsx/src/Language/TSX.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/semantic-tsx/src/Language/TSX.hs b/semantic-tsx/src/Language/TSX.hs index d21455f1d..9b4b98604 100644 --- a/semantic-tsx/src/Language/TSX.hs +++ b/semantic-tsx/src/Language/TSX.hs @@ -5,14 +5,15 @@ module Language.TSX , Language.TSX.Grammar.tree_sitter_tsx ) where +import qualified AST.Parse as Parse +import qualified AST.Unmarshal as TS import Data.Proxy import qualified Language.TSX.AST as TSX import qualified Language.TSX.Tags as TsxTags import qualified Tags.Tagging.Precise as Tags 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 matchedSymbols _ = TS.matchedSymbols (Proxy :: Proxy TSX.Program)