From 50b9298457972f6dfd30008eb554a4037966d964 Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Wed, 19 Jun 2019 14:17:33 -0400 Subject: [PATCH] Serialize unit constructors. --- src/Serializing/SExpression/Precise.hs | 3 +++ 1 file changed, 3 insertions(+) diff --git a/src/Serializing/SExpression/Precise.hs b/src/Serializing/SExpression/Precise.hs index 0ca5d264f..30637da3a 100644 --- a/src/Serializing/SExpression/Precise.hs +++ b/src/Serializing/SExpression/Precise.hs @@ -51,3 +51,6 @@ instance (Constructor c, GToSExpression f) => GToSExpression (M1 C c f) where instance (GToSExpression f, GToSExpression g) => GToSExpression (f :*: g) where gtoSExpression (l :*: r) = gtoSExpression l <> gtoSExpression r + +instance GToSExpression U1 where + gtoSExpression _ _ = []