module Serokell.Aeson.Options
( defaultOptions
, leaveTagOptions
, defaultOptionsPS
) where
import Universum
import Data.Char (isLower, isPunctuation, isUpper, toLower)
import Data.List (findIndex)
import qualified Data.Aeson.TH as A
headToLower :: String -> String
headToLower [] = error "Can not use headToLower on empty String"
headToLower (x:xs) = toLower x : xs
stripFieldPrefix :: String -> String
stripFieldPrefix = dropWhile (not . isUpper)
dropPunctuation :: String -> String
dropPunctuation = filter (not . isPunctuation)
stripConstructorPrefix :: String -> String
stripConstructorPrefix t =
maybe t (flip drop t . decrementSafe) $ findIndex isLower t
where
decrementSafe 0 = 0
decrementSafe i = i - 1
defaultOptions :: A.Options
defaultOptions =
A.defaultOptions
{ A.fieldLabelModifier = headToLower . stripFieldPrefix . dropPunctuation
, A.constructorTagModifier = headToLower . stripConstructorPrefix
, A.sumEncoding = A.ObjectWithSingleField
}
leaveTagOptions :: A.Options
leaveTagOptions = defaultOptions { A.constructorTagModifier = identity }
defaultOptionsPS :: A.Options
defaultOptionsPS =
A.defaultOptions
{ A.constructorTagModifier = headToLower . stripConstructorPrefix
}