jsonOptions :: Int -> Options
jsonOptions n = defaultOptions { fieldLabelModifier = camelToUnderscore . drop n
                               , constructorTagModifier = camelToUnderscore }
jsonOptions :: Int -> Options
jsonOptions n = defaultOptions { fieldLabelModifier = camelToUnderscore . drop n
                               , constructorTagModifier = camelToUnderscore }
jsonOptions n = defaultOptions { fieldLabelModifier = camelToUnderscore . drop n
                               , constructorTagModifier = camelToUnderscore }