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

add this back as per Rob's approval

Browse Source
This commit is contained in:
Ayman Nadeem 2020-01-16 09:30:22 -05:00
parent 8befed9940
commit 2b23609d4a
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
semantic-ast/src/Marshal/JSON.hs
View File

@ -87,3 +87,5 @@ class GFields f where
-- since it's a function on types, we need a typeclass -- since it's a function on types, we need a typeclass
class GValue f where class GValue f where
gvalue :: (ToJSON a) => f a -> Value gvalue :: (ToJSON a) => f a -> Value
-- TODO: use toEncoding -- direct serialization to ByteString