github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-24 00:42:33 +03:00
Code Issues Projects Releases Wiki Activity

📝 the ToTags instance.

Browse Source
This commit is contained in:
Rob Rix 2019-10-07 13:53:37 -04:00
parent 8073e854a1
commit 40e83cab6b
No known key found for this signature in database
GPG Key ID: F188A01508EA1CF7
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
semantic-json/src/Language/JSON.hs
View File

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