github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-28 18:23:44 +03:00
Code Issues Projects Releases Wiki Activity

Serialize products.

Browse Source
This commit is contained in:
Rob Rix 2019-06-19 13:51:12 -04:00
parent ca3101d432
commit b1d632fb2d
No known key found for this signature in database
GPG Key ID: F188A01508EA1CF7
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Serializing/SExpression/Precise.hs
View File

@ -26,3 +26,6 @@ instance (GToSExpression f, GToSExpression g) => GToSExpression (f :+: g) where
instance (Constructor c, GToSExpression f) => GToSExpression (M1 C c f) where
gtoSExpression' m n = stringUtf8 (conName m) : gtoSExpression' (unM1 m) (n + 1)
instance (GToSExpression f, GToSExpression g) => GToSExpression (f :*: g) where
gtoSExpression' (l :*: r) = gtoSExpression' l <> gtoSExpression' r