formatting

This commit is contained in:
Ville Tirronen 2022-04-05 11:01:36 +03:00
parent 4d656fdcb7
commit 0e6d922576

View File

@ -39,8 +39,8 @@ where
import Control.Lens import Control.Lens
import qualified Data.Aeson.Types as A import qualified Data.Aeson.Types as A
import Data.OpenApi import Data.OpenApi
import Data.OpenApi.Internal.Schema
import Data.OpenApi.Internal.ParamSchema import Data.OpenApi.Internal.ParamSchema
import Data.OpenApi.Internal.Schema
import Data.Proxy import Data.Proxy
import Data.Typeable import Data.Typeable
import Deriving.Aeson import Deriving.Aeson
@ -83,7 +83,7 @@ instance
ToParamSchema (CustomJSON (xs :: k) x) ToParamSchema (CustomJSON (xs :: k) x)
where where
toParamSchema Proxy = toParamSchema Proxy =
genericToParamSchema (openApiOptionsModifier @xs defaultSchemaOptions) (Proxy @x) genericToParamSchema (openApiOptionsModifier @xs defaultSchemaOptions) (Proxy @x)
class OpenApiOptionModifier x where class OpenApiOptionModifier x where
openApiOptionsModifier :: SchemaOptions -> SchemaOptions openApiOptionsModifier :: SchemaOptions -> SchemaOptions