From 40e83cab6bd30ac753f2e5bec0b8da9d6b6c8b57 Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Mon, 7 Oct 2019 13:53:37 -0400 Subject: [PATCH] :memo: the ToTags instance. --- semantic-json/src/Language/JSON.hs | 1 + 1 file changed, 1 insertion(+) 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 _ _ = []