Serialize products.

robrix · robrix · commit b1d632fb2d46 · 2019-06-20T10:54:02.000-04:00
diff --git a/src/Serializing/SExpression/Precise.hs b/src/Serializing/SExpression/Precise.hs
@@ -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
