diff --git a/semantic-json/semantic-json.cabal b/semantic-json/semantic-json.cabal index e79c3671d..29dda0cad 100644 --- a/semantic-json/semantic-json.cabal +++ b/semantic-json/semantic-json.cabal @@ -23,6 +23,7 @@ library Language.JSON build-depends: base >= 4.12 && < 5 + , semantic-tags ^>= 0.0 , tree-sitter ^>= 0.4 , tree-sitter-json ^>= 0.3 hs-source-dirs: src diff --git a/semantic-json/src/Language/JSON.hs b/semantic-json/src/Language/JSON.hs index 87b4f4278..97f4b822e 100644 --- a/semantic-json/src/Language/JSON.hs +++ b/semantic-json/src/Language/JSON.hs @@ -3,6 +3,7 @@ module Language.JSON ( Term(..) ) where +import qualified Tags.Tagging.Precise as Tags import qualified TreeSitter.JSON.AST as JSON import qualified TreeSitter.Unmarshal as TS @@ -10,3 +11,6 @@ newtype Term a = Term { getTerm :: JSON.Document a } instance TS.Unmarshal Term where unmarshalNode node = Term <$> TS.unmarshalNode node + +instance Tags.ToTags Term where + tags _ _ = []