module OpenAI.Internal.Aeson (jsonOpts, deriveJSON, ToJSON, FromJSON) where
import Data.Aeson
import Data.Aeson.TH ( deriveJSON )
import Text.Casing (quietSnake)
jsonOpts :: Int -> Options
jsonOpts :: Int -> Options
jsonOpts Int
x =
Options
defaultOptions
{ fieldLabelModifier :: String -> String
fieldLabelModifier = String -> String
quietSnake forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Int -> [a] -> [a]
drop Int
x,
constructorTagModifier :: String -> String
constructorTagModifier = String -> String
quietSnake,
omitNothingFields :: Bool
omitNothingFields = Bool
True
}