@@ -107,8 +107,13 @@ elmType name (SumDatatype (SumType sums)) = do
107107 _stcFields = Anonymous $ maybeToList value
108108 },
109109 es_omit_null = False,
110− es_unary_strings = True,
111− es_type = defSumEncoding
110+ es_unary_strings = False,
111+ es_type =
112+ SumEncoding'
113+ TaggedObject
114+ { tagFieldName = "tag",
115+ contentsFieldName = "values"
116+ }
112117 }
113118 ]
114119 pure $ ETyCon $ ETCon $ toString name