Define a ToTags instance for JSON.

There’s no tags to generate for JSON (without e.g. a schema or something for the data), but implementing the instance allows us to avoid having to customize the list of parsers for tagging.

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

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 _ _ = []