Source

aeson / tests / Options.hs

Full commit
basvandijk 4e94672 





basvandijk 7e7fb93 
basvandijk 8fa812d 

basvandijk 7e7fb93 
basvandijk 4e94672 

basvandijk 7e7fb93 
basvandijk 8fa812d 
basvandijk 7e7fb93 

basvandijk 4e94672 
basvandijk 8fa812d 


basvandijk 4e94672 


basvandijk 8fa812d 

basvandijk 4e94672 
module Options where

import Data.Aeson.Types
import Data.Char

optsDefault :: Options
optsDefault = defaultOptions
              { fieldLabelModifier     = map toLower
              , constructorTagModifier = map toLower
              }

opts2ElemArray :: Options
opts2ElemArray = optsDefault
                 { allNullaryToStringTag = False
                 , sumEncoding     = TwoElemArray
                 }

optsTaggedObject :: Options
optsTaggedObject = optsDefault
                   { allNullaryToStringTag = False }

optsObjectWithSingleField :: Options
optsObjectWithSingleField = optsDefault
                            { allNullaryToStringTag = False
                            , sumEncoding           = ObjectWithSingleField
                            }