git.iko.soy/typeable/aeson
on 0.9.x help sign in
typeable/aeson/tests/Options.hs
26 lines 769 B history raw
1module Options where
3import Data.Aeson.Types
4import Data.Char
6optsDefault :: Options
7optsDefault = defaultOptions
8 { fieldLabelModifier = map toLower
9 , constructorTagModifier = map toLower
10 }
12opts2ElemArray :: Options
13opts2ElemArray = optsDefault
14 { allNullaryToStringTag = False
15 , sumEncoding = TwoElemArray
16 }
18optsTaggedObject :: Options
19optsTaggedObject = optsDefault
20 { allNullaryToStringTag = False }
22optsObjectWithSingleField :: Options
23optsObjectWithSingleField = optsDefault
24 { allNullaryToStringTag = False
25 , sumEncoding = ObjectWithSingleField
26 }