git.iko.soy/streamly
on master help sign in
Initialize all the options in Serealize.TH Config
791a5eeAdithya Kumar
core/src/Streamly/Internal/Data/Serialize/TH.hs+2−2
compare with master
unifiedsplit
@@ -417,7 +417,6 @@ data SerializeTHConfig =
417 -- ^ Inline value for 'serialize'. Default is Inline.
417 -- ^ Inline value for 'serialize'. Default is Inline.
418 , inlineDeserialize :: Inline
418 , inlineDeserialize :: Inline
419 -- ^ Inline value for 'deserialize'. Default is Inline.
419 -- ^ Inline value for 'deserialize'. Default is Inline.
420−{-
421 , constructorTagAsString :: Bool
420 , constructorTagAsString :: Bool
422 -- ^ If True, encode constructors as Latin-1 byte sequence. This
421 -- ^ If True, encode constructors as Latin-1 byte sequence. This
423 -- allows addition, removal, and reordering of constructors. If False
422 -- allows addition, removal, and reordering of constructors. If False
@@ -426,7 +425,6 @@ data SerializeTHConfig =
426 -- ^ If True, constructors with record syntax will be encoded in a
425 -- ^ If True, constructors with record syntax will be encoded in a
427 -- more compatible way. Allows addition, removal, and reordering of
426 -- more compatible way. Allows addition, removal, and reordering of
428 -- fields. The default value is 'False'.
427 -- fields. The default value is 'False'.
429−-}
430 }
428 }
431
429
432defaultSerializeTHConfig :: SerializeTHConfig
430defaultSerializeTHConfig :: SerializeTHConfig
@@ -437,6 +435,8 @@ defaultSerializeTHConfig =
437 , inlineSize = Inline
435 , inlineSize = Inline
438 , inlineSerialize = Inline
436 , inlineSerialize = Inline
439 , inlineDeserialize = Inline
437 , inlineDeserialize = Inline
438+ , constructorTagAsString = False
439+ , recordSyntaxWithHeader = False
440 }
440 }
441
441
442-- | Similar to 'deriveSerialize,' but take a 'SerializeTHConfig' to control how
442-- | Similar to 'deriveSerialize,' but take a 'SerializeTHConfig' to control how