@@ -60,18 +60,6 @@ instance HasDescription SwaggerExternalDocs (Maybe Text) where description = s
60class HasSwaggerSchemaCommon s where
60class HasSwaggerSchemaCommon s where
61 schemaCommon :: Lens' s SwaggerSchemaCommon
61 schemaCommon :: Lens' s SwaggerSchemaCommon
63−instance HasSwaggerSchemaCommon SwaggerParameter where
64− schemaCommon = swaggerParameterSchema.schemaCommon
66−instance HasSwaggerSchemaCommon SwaggerParameterSchema where
67− schemaCommon = paramSchemaEither . choosing schemaCommon schemaCommon
69− paramSchemaEither = iso toEither fromEither
70− toEither (SwaggerParameterBody x) = Left x
71− toEither (SwaggerParameterOther y) = Right y
72− fromEither (Left x) = SwaggerParameterBody x
73− fromEither (Right y) = SwaggerParameterOther y
75instance HasSwaggerSchemaCommon SwaggerSchema where schemaCommon = swaggerSchemaCommon
63instance HasSwaggerSchemaCommon SwaggerSchema where schemaCommon = swaggerSchemaCommon
76instance HasSwaggerSchemaCommon SwaggerParameterOtherSchema where schemaCommon = swaggerParameterOtherSchemaCommon
64instance HasSwaggerSchemaCommon SwaggerParameterOtherSchema where schemaCommon = swaggerParameterOtherSchemaCommon
77instance HasSwaggerSchemaCommon SwaggerItems where schemaCommon = swaggerItemsCommon
65instance HasSwaggerSchemaCommon SwaggerItems where schemaCommon = swaggerItemsCommon