github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-26 00:12:29 +03:00
Code Issues Projects Releases Wiki Activity

Construct Values from Terms using termFields.

Browse Source
This commit is contained in:
Rob Rix 2016-03-01 13:48:57 -05:00
parent 60e0ca3337
commit 526c9ba26f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Renderer/JSON.hs
View File

@ -56,7 +56,7 @@ instance (ToJSON recur) => ToJSON (Syntax leaf recur) where
toJSON (Fixed c) = object [ "type" .= String "fixed", "children" .= Array (fromList $ toJSON <$> c) ]
toJSON (Keyed c) = object [ "type" .= String "fixed", "children" .= object (uncurry (.=) <$> toList c) ]
instance ToJSON (Term leaf Info) where
toJSON (Info range categories :< syntax) = object [ "range" .= toJSON range, "categories" .= toJSON categories, "syntax" .= toJSON syntax ]
toJSON (info :< syntax) = object (termFields info syntax)
toEncoding (info :< syntax) = pairs (termSeries info syntax)
termSeries :: ToJSON recur => Info -> Syntax leaf recur -> Series