Source

aeson / tests / Options.hs

The default branch has multiple heads

Diff from to

File tests/Options.hs

 import Data.Char
 
 optsDefault :: Options
-optsDefault = defaultOptions{ fieldNameModifier       = map toLower
-                            , constructorNameModifier = map toLower
-                            , sumEncoding             = TwoElemArray
-                            }
+optsDefault = defaultOptions
+              { fieldNameModifier       = map toLower
+              , constructorNameModifier = map toLower
+              }
 
 opts2ElemArray :: Options
-opts2ElemArray = optsDefault{ nullaryToString = False }
+opts2ElemArray = optsDefault
+                 { nullaryToString = False
+                 , sumEncoding     = TwoElemArray
+                 }
 
 optsObjectWithType :: Options
 optsObjectWithType = optsDefault
-                     { nullaryToString = False
-                     , sumEncoding     = defaultObjectWithType
-                     }
+                     { nullaryToString = False }
 
 optsObjectWithSingleField :: Options
 optsObjectWithSingleField = optsDefault