git.iko.soy/typeable/openapi3
on master help sign in
Make lenses for NamedSchema and declare HasParamSchema instance
acee6c7Catherine Galkina
src/Data/Swagger/Lens.hs+3
compare with master
unifiedsplit
@@ -43,6 +43,8 @@ makeLenses ''ParamOtherSchema
43makeLenses ''Header
43makeLenses ''Header
44-- ** 'Schema' lenses
44-- ** 'Schema' lenses
45makeLenses ''Schema
45makeLenses ''Schema
46+-- ** 'NamedSchema' lenses
47+makeLenses ''NamedSchema
46
48
47-- ** 'SwaggerItems' prisms
49-- ** 'SwaggerItems' prisms
48
50
@@ -105,6 +107,7 @@ instance HasParamSchema Schema Schema where parameterSchema = schemaParamSchema
105instance HasParamSchema ParamOtherSchema ParamOtherSchema where parameterSchema = paramOtherSchemaParamSchema
107instance HasParamSchema ParamOtherSchema ParamOtherSchema where parameterSchema = paramOtherSchemaParamSchema
106instance HasParamSchema Header Header where parameterSchema = headerParamSchema
108instance HasParamSchema Header Header where parameterSchema = headerParamSchema
107instance HasParamSchema (ParamSchema t) t where parameterSchema = id
109instance HasParamSchema (ParamSchema t) t where parameterSchema = id
110+instance HasParamSchema NamedSchema Schema where parameterSchema = namedSchemaSchema.parameterSchema
108
111
109schemaType :: HasParamSchema s t => Lens' s (SwaggerType t)
112schemaType :: HasParamSchema s t => Lens' s (SwaggerType t)
110schemaType = parameterSchema.paramSchemaType
113schemaType = parameterSchema.paramSchemaType