@@ -43,6 +43,8 @@ makeLenses ''ParamOtherSchema
4343makeLenses ''Header
4444-- ** 'Schema' lenses
4545makeLenses ''Schema
46+-- ** 'NamedSchema' lenses
47+makeLenses ''NamedSchema
4648
4749-- ** 'SwaggerItems' prisms
4850
@@ -105,6 +107,7 @@ instance HasParamSchema Schema Schema where parameterSchema = schemaParamSchema
105107instance HasParamSchema ParamOtherSchema ParamOtherSchema where parameterSchema = paramOtherSchemaParamSchema
106108instance HasParamSchema Header Header where parameterSchema = headerParamSchema
107109instance HasParamSchema (ParamSchema t) t where parameterSchema = id
110+instance HasParamSchema NamedSchema Schema where parameterSchema = namedSchemaSchema.parameterSchema
108111
109112schemaType :: HasParamSchema s t => Lens' s (SwaggerType t)
110113schemaType = parameterSchema.paramSchemaType