on master help sign in
Changed default encoding of sum datatypes to ObjectWithType
a19a5ebBas van Dijk
Data/Aeson/Types/Internal.hs+2−2
@@ -299,7 +299,7 @@ data SumEncoding =
299-- , 'constructorNameModifier' = id
299-- , 'constructorNameModifier' = id
300-- , 'nullaryToString' = True
300-- , 'nullaryToString' = True
301-- , 'omitNothingFields' = True
301-- , 'omitNothingFields' = True
302−-- , 'sumEncoding' = 'TwoElemArray'
302+-- , 'sumEncoding' = 'defaultObjectWithType'
303-- }
303-- }
304-- @
304-- @
305defaultOptions :: Options
305defaultOptions :: Options
@@ -308,7 +308,7 @@ defaultOptions = Options
308 , constructorNameModifier = id
308 , constructorNameModifier = id
309 , nullaryToString = True
309 , nullaryToString = True
310 , omitNothingFields = True
310 , omitNothingFields = True
311− , sumEncoding = TwoElemArray
311+ , sumEncoding = defaultObjectWithType
312 }
312 }
313
313
314-- | Default 'ObjectWithType' 'SumEncoding' options:
314-- | Default 'ObjectWithType' 'SumEncoding' options:
tests/Options.hs+3−2
@@ -5,8 +5,9 @@ import Data.Char
5
5
6optsDefault :: Options
6optsDefault :: Options
7optsDefault = defaultOptions{ fieldNameModifier = map toLower
7optsDefault = defaultOptions{ fieldNameModifier = map toLower
8− , constructorNameModifier = map toLower
8+ , constructorNameModifier = map toLower
9+ , sumEncoding = TwoElemArray
9− }
10+ }
10
11
11opts2ElemArray :: Options
12opts2ElemArray :: Options
12opts2ElemArray = optsDefault{ nullaryToString = False }
13opts2ElemArray = optsDefault{ nullaryToString = False }