Serialize D1.

robrix · robrix · commit 4452c89a063c · 2019-06-20T10:54:01.000-04:00
diff --git a/src/Serializing/SExpression/Precise.hs b/src/Serializing/SExpression/Precise.hs
@@ -11,3 +11,6 @@ serializeSExpression t = gtoSExpression (from t) 0 <> "\n"
 
 class GToSExpression f where
   gtoSExpression :: f (Int -> Builder) -> (Int -> Builder)
+
+instance GToSExpression f => GToSExpression (M1 D d f) where
+  gtoSExpression = gtoSExpression . unM1
