Use {"tag": "Str", "val": "foo"} format for JSON.

jgm · Oct 16, 2013 · 83d600b · 83d600b
1 parent cc73b4f
commit 83d600b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Text/Pandoc/Definition.hs b/Text/Pandoc/Definition.hs
@@ -263,7 +263,7 @@ jsonOpts = Aeson.Options{ Aeson.fieldLabelModifier = id
                         , Aeson.constructorTagModifier = id
                         , Aeson.allNullaryToStringTag = False
                         , Aeson.omitNothingFields = False
-                        , Aeson.sumEncoding = Aeson.ObjectWithSingleField
+                        , Aeson.sumEncoding = Aeson.TaggedObject "tag" "val"
                         }
 
 toJSON' :: (Generic a, Aeson.GToJSON (Rep a))