mirror of
https://github.com/github/semantic.git
synced 2024-12-26 00:12:29 +03:00
TODOs
This commit is contained in:
parent
164672e52a
commit
5970982065
@ -39,6 +39,9 @@ instance (GFields f, Datatype c) => GFields (M1 D c f) where
|
||||
gfields acc x = gfields ((Text.pack "type", String (Text.pack (datatypeName x))): acc) $ unM1 x
|
||||
-- gmarshal = gmarshal . unM1 -- using unM1 instead of pattern-matching on M1 in order to express with function composition
|
||||
|
||||
-- 1. Need to get the name of the datatype.
|
||||
-- 2. Pass info along somewhere where we can do something with it.
|
||||
|
||||
-- Fold over S1 product types and pass the result to Aeson objects
|
||||
instance GFields fields => GFields (C1 c fields) where
|
||||
gfields acc x = gfields acc (unM1 x)
|
||||
|
Loading…
Reference in New Issue
Block a user