diff --git a/semantic-json/src/Language/JSON.hs b/semantic-json/src/Language/JSON.hs
index 97f4b822e..92e11627e 100644
--- a/semantic-json/src/Language/JSON.hs
+++ b/semantic-json/src/Language/JSON.hs
@@ -12,5 +12,6 @@ newtype Term a = Term { getTerm :: JSON.Document a }
 instance TS.Unmarshal Term where
   unmarshalNode node = Term <$> TS.unmarshalNode node
 
+-- | Tags aren’t really meaningful for JSON, but by implementing this we can avoid having to customize the set of parsers used for computing tags.
 instance Tags.ToTags Term where
   tags _ _ = []