module Honeycomb.Aeson (snakeCaseOptions) where
import Data.Aeson

snakeCaseOptions :: Options
snakeCaseOptions :: Options
snakeCaseOptions =
  Options
defaultOptions
    { fieldLabelModifier :: String -> String
fieldLabelModifier = Char -> String -> String
camelTo2 Char
'_'
    , constructorTagModifier :: String -> String
constructorTagModifier = Char -> String -> String
camelTo2 Char
'_'
    }