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)