@@ -417,7 +417,6 @@ data SerializeTHConfig =
417417 -- ^ Inline value for 'serialize'. Default is Inline.
418418 , inlineDeserialize :: Inline
419419 -- ^ Inline value for 'deserialize'. Default is Inline.
420−{-
421420 , constructorTagAsString :: Bool
422421 -- ^ If True, encode constructors as Latin-1 byte sequence. This
423422 -- allows addition, removal, and reordering of constructors. If False
@@ -426,7 +425,6 @@ data SerializeTHConfig =
426425 -- ^ If True, constructors with record syntax will be encoded in a
427426 -- more compatible way. Allows addition, removal, and reordering of
428427 -- fields. The default value is 'False'.
429−-}
430428 }
431429
432430defaultSerializeTHConfig :: SerializeTHConfig
@@ -437,6 +435,8 @@ defaultSerializeTHConfig =
437435 , inlineSize = Inline
438436 , inlineSerialize = Inline
439437 , inlineDeserialize = Inline
438+ , constructorTagAsString = False
439+ , recordSyntaxWithHeader = False
440440 }
441441
442442-- | Similar to 'deriveSerialize,' but take a 'SerializeTHConfig' to control how