@@ -60,6 +60,9 @@ defaultSchemaOptions = SchemaOptions
60-- * 'Aeson.tagSingleConstructors'
60-- * 'Aeson.tagSingleConstructors'
62-- The rest is defined as in 'defaultSchemaOptions'.
62-- The rest is defined as in 'defaultSchemaOptions'.
63fromAesonOptions :: Aeson.Options -> SchemaOptions
66fromAesonOptions :: Aeson.Options -> SchemaOptions
64fromAesonOptions opts = defaultSchemaOptions
67fromAesonOptions opts = defaultSchemaOptions
65 { fieldLabelModifier = Aeson.fieldLabelModifier opts
68 { fieldLabelModifier = Aeson.fieldLabelModifier opts