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

TODO for sums

Browse Source
This commit is contained in:
Ayman Nadeem 2020-01-21 16:30:50 -05:00
parent 78ad74372c
commit f839e79ac1
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-ast/src/Marshal/JSON.hs
View File

@ -65,6 +65,7 @@ instance (GFields f, GFields g) => GFields (f :*: g) where
instance (GMarshalJSON f, GMarshalJSON g) => GMarshalJSON (f :+: g) where
gmarshal (L1 f) = gmarshal f
gmarshal (R1 g) = gmarshal g
-- TODO: not much point in generating objects for the L1/R1 portions of sums; we probably want to just spit out their contents, flattening the sum
-- GValue for leaves
instance ToJSON a => GValue (K1 i a) where