@@ -60,18 +60,6 @@ instance HasDescription SwaggerExternalDocs (Maybe Text) where description = s
6060class HasSwaggerSchemaCommon s where
6161 schemaCommon :: Lens' s SwaggerSchemaCommon
6262
63−instance HasSwaggerSchemaCommon SwaggerParameter where
64− schemaCommon = swaggerParameterSchema.schemaCommon
65−
66−instance HasSwaggerSchemaCommon SwaggerParameterSchema where
67− schemaCommon = paramSchemaEither . choosing schemaCommon schemaCommon
68− where
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
74−
7563instance HasSwaggerSchemaCommon SwaggerSchema where schemaCommon = swaggerSchemaCommon
7664instance HasSwaggerSchemaCommon SwaggerParameterOtherSchema where schemaCommon = swaggerParameterOtherSchemaCommon
7765instance HasSwaggerSchemaCommon SwaggerItems where schemaCommon = swaggerItemsCommon