@@ -43,7 +43,7 @@
4343-- & #type ?~ SwaggerBoolean
4444-- & #description ?~ "To be or not to be"
4545-- :}
46−-- {"description":"To be or not to be","type":"boolean"}
46+-- {"type":"boolean","description":"To be or not to be"}
4747--
4848-- Additionally, to simplify working with @'Response'@, both @'Operation'@ and
4949-- @'Responses'@ have direct access to it via @'Optics.Core.At.at'@. Example:
@@ -81,7 +81,6 @@ makeFieldLabels ''Param
8181makeFieldLabels ''Header
8282makeFieldLabels ''Schema
8383makeFieldLabels ''NamedSchema
84−makeFieldLabels ''ParamSchema
8584makeFieldLabels ''Xml
8685makeFieldLabels ''Responses
8786makeFieldLabels ''Response
@@ -153,239 +152,132 @@ instance At Operation where
153152 at n = #responses % at n
154153 {-# INLINE at #-}
155154
156−-- #paramSchema
157−
158−instance
159− ( a ~ ParamSchema
160− , b ~ ParamSchema
161− ) => LabelOptic "paramSchema" A_Lens NamedSchema NamedSchema a b where
162− labelOptic = #schema % #paramSchema
163− {-# INLINE labelOptic #-}
164−
165155-- #type
166156
167−instance
168− ( a ~ Maybe SwaggerType
169− , b ~ Maybe SwaggerType
170− ) => LabelOptic "type" A_Lens Schema Schema a b where
171− labelOptic = #paramSchema % #type
172− {-# INLINE labelOptic #-}
173−
174157instance
175158 ( a ~ Maybe SwaggerType
176159 , b ~ Maybe SwaggerType
177160 ) => LabelOptic "type" A_Lens NamedSchema NamedSchema a b where
178− labelOptic = #paramSchema % #type
161+ labelOptic = #schema % #type
179162 {-# INLINE labelOptic #-}
180163
181164-- #default
182165
183−instance
184− ( a ~ Maybe Value, b ~ Maybe Value
185− ) => LabelOptic "default" A_Lens Schema Schema a b where
186− labelOptic = #paramSchema % #default
187− {-# INLINE labelOptic #-}
188−
189166instance
190167 ( a ~ Maybe Value, b ~ Maybe Value
191168 ) => LabelOptic "default" A_Lens NamedSchema NamedSchema a b where
192− labelOptic = #paramSchema % #default
169+ labelOptic = #schema % #default
193170 {-# INLINE labelOptic #-}
194171
195172-- #format
196173
197−instance
198− ( a ~ Maybe Format, b ~ Maybe Format
199− ) => LabelOptic "format" A_Lens Schema Schema a b where
200− labelOptic = #paramSchema % #format
201− {-# INLINE labelOptic #-}
202−
203174instance
204175 ( a ~ Maybe Format, b ~ Maybe Format
205176 ) => LabelOptic "format" A_Lens NamedSchema NamedSchema a b where
206− labelOptic = #paramSchema % #format
177+ labelOptic = #schema % #format
207178 {-# INLINE labelOptic #-}
208179
209180-- #items
210181
211−instance
212− ( a ~ Maybe SwaggerItems
213− , b ~ Maybe SwaggerItems
214− ) => LabelOptic "items" A_Lens Schema Schema a b where
215− labelOptic = #paramSchema % #items
216− {-# INLINE labelOptic #-}
217−
218182instance
219183 ( a ~ Maybe SwaggerItems
220184 , b ~ Maybe SwaggerItems
221185 ) => LabelOptic "items" A_Lens NamedSchema NamedSchema a b where
222− labelOptic = #paramSchema % #items
186+ labelOptic = #schema % #items
223187 {-# INLINE labelOptic #-}
224188
225189-- #maximum
226190
227−instance
228− ( a ~ Maybe Scientific, b ~ Maybe Scientific
229− ) => LabelOptic "maximum" A_Lens Schema Schema a b where
230− labelOptic = #paramSchema % #maximum
231− {-# INLINE labelOptic #-}
232−
233191instance
234192 ( a ~ Maybe Scientific, b ~ Maybe Scientific
235193 ) => LabelOptic "maximum" A_Lens NamedSchema NamedSchema a b where
236− labelOptic = #paramSchema % #maximum
194+ labelOptic = #schema % #maximum
237195 {-# INLINE labelOptic #-}
238196
239197-- #exclusiveMaximum
240198
241−instance
242− ( a ~ Maybe Bool, b ~ Maybe Bool
243− ) => LabelOptic "exclusiveMaximum" A_Lens Schema Schema a b where
244− labelOptic = #paramSchema % #exclusiveMaximum
245− {-# INLINE labelOptic #-}
246−
247199instance
248200 ( a ~ Maybe Bool, b ~ Maybe Bool
249201 ) => LabelOptic "exclusiveMaximum" A_Lens NamedSchema NamedSchema a b where
250− labelOptic = #paramSchema % #exclusiveMaximum
202+ labelOptic = #schema % #exclusiveMaximum
251203 {-# INLINE labelOptic #-}
252204
253205-- #minimum
254206
255−instance
256− ( a ~ Maybe Scientific, b ~ Maybe Scientific
257− ) => LabelOptic "minimum" A_Lens Schema Schema a b where
258− labelOptic = #paramSchema % #minimum
259− {-# INLINE labelOptic #-}
260−
261207instance
262208 ( a ~ Maybe Scientific, b ~ Maybe Scientific
263209 ) => LabelOptic "minimum" A_Lens NamedSchema NamedSchema a b where
264− labelOptic = #paramSchema % #minimum
210+ labelOptic = #schema % #minimum
265211 {-# INLINE labelOptic #-}
266212
267213-- #exclusiveMinimum
268214
269−instance
270− ( a ~ Maybe Bool, b ~ Maybe Bool
271− ) => LabelOptic "exclusiveMinimum" A_Lens Schema Schema a b where
272− labelOptic = #paramSchema % #exclusiveMinimum
273− {-# INLINE labelOptic #-}
274−
275215instance
276216 ( a ~ Maybe Bool, b ~ Maybe Bool
277217 ) => LabelOptic "exclusiveMinimum" A_Lens NamedSchema NamedSchema a b where
278− labelOptic = #paramSchema % #exclusiveMinimum
218+ labelOptic = #schema % #exclusiveMinimum
279219 {-# INLINE labelOptic #-}
280220
281221-- #maxLength
282222
283−instance
284− ( a ~ Maybe Integer, b ~ Maybe Integer
285− ) => LabelOptic "maxLength" A_Lens Schema Schema a b where
286− labelOptic = #paramSchema % #maxLength
287− {-# INLINE labelOptic #-}
288−
289223instance
290224 ( a ~ Maybe Integer, b ~ Maybe Integer
291225 ) => LabelOptic "maxLength" A_Lens NamedSchema NamedSchema a b where
292− labelOptic = #paramSchema % #maxLength
226+ labelOptic = #schema % #maxLength
293227 {-# INLINE labelOptic #-}
294228
295229-- #minLength
296230
297−instance
298− ( a ~ Maybe Integer, b ~ Maybe Integer
299− ) => LabelOptic "minLength" A_Lens Schema Schema a b where
300− labelOptic = #paramSchema % #minLength
301− {-# INLINE labelOptic #-}
302−
303231instance
304232 ( a ~ Maybe Integer, b ~ Maybe Integer
305233 ) => LabelOptic "minLength" A_Lens NamedSchema NamedSchema a b where
306− labelOptic = #paramSchema % #minLength
234+ labelOptic = #schema % #minLength
307235 {-# INLINE labelOptic #-}
308236
309237-- #pattern
310238
311−instance
312− ( a ~ Maybe Text, b ~ Maybe Text
313− ) => LabelOptic "pattern" A_Lens Schema Schema a b where
314− labelOptic = #paramSchema % #pattern
315− {-# INLINE labelOptic #-}
316−
317239instance
318240 ( a ~ Maybe Text, b ~ Maybe Text
319241 ) => LabelOptic "pattern" A_Lens NamedSchema NamedSchema a b where
320− labelOptic = #paramSchema % #pattern
242+ labelOptic = #schema % #pattern
321243 {-# INLINE labelOptic #-}
322244
323245-- #maxItems
324246
325−instance
326− ( a ~ Maybe Integer, b ~ Maybe Integer
327− ) => LabelOptic "maxItems" A_Lens Schema Schema a b where
328− labelOptic = #paramSchema % #maxItems
329− {-# INLINE labelOptic #-}
330−
331247instance
332248 ( a ~ Maybe Integer, b ~ Maybe Integer
333249 ) => LabelOptic "maxItems" A_Lens NamedSchema NamedSchema a b where
334− labelOptic = #paramSchema % #maxItems
250+ labelOptic = #schema % #maxItems
335251 {-# INLINE labelOptic #-}
336252
337253-- #minItems
338254
339−instance
340− ( a ~ Maybe Integer, b ~ Maybe Integer
341− ) => LabelOptic "minItems" A_Lens Schema Schema a b where
342− labelOptic = #paramSchema % #minItems
343− {-# INLINE labelOptic #-}
344−
345255instance
346256 ( a ~ Maybe Integer, b ~ Maybe Integer
347257 ) => LabelOptic "minItems" A_Lens NamedSchema NamedSchema a b where
348− labelOptic = #paramSchema % #minItems
258+ labelOptic = #schema % #minItems
349259 {-# INLINE labelOptic #-}
350260
351261-- #uniqueItems
352262
353−instance
354− ( a ~ Maybe Bool, b ~ Maybe Bool
355− ) => LabelOptic "uniqueItems" A_Lens Schema Schema a b where
356− labelOptic = #paramSchema % #uniqueItems
357− {-# INLINE labelOptic #-}
358−
359263instance
360264 ( a ~ Maybe Bool, b ~ Maybe Bool
361265 ) => LabelOptic "uniqueItems" A_Lens NamedSchema NamedSchema a b where
362− labelOptic = #paramSchema % #uniqueItems
266+ labelOptic = #schema % #uniqueItems
363267 {-# INLINE labelOptic #-}
364268
365269-- #enum
366270
367−instance
368− ( a ~ Maybe [Value], b ~ Maybe [Value]
369− ) => LabelOptic "enum" A_Lens Schema Schema a b where
370− labelOptic = #paramSchema % #enum
371− {-# INLINE labelOptic #-}
372−
373271instance
374272 ( a ~ Maybe [Value], b ~ Maybe [Value]
375273 ) => LabelOptic "enum" A_Lens NamedSchema NamedSchema a b where
376− labelOptic = #paramSchema % #enum
274+ labelOptic = #schema % #enum
377275 {-# INLINE labelOptic #-}
378276
379277-- #multipleOf
380278
381−instance
382− ( a ~ Maybe Scientific, b ~ Maybe Scientific
383− ) => LabelOptic "multipleOf" A_Lens Schema Schema a b where
384− labelOptic = #paramSchema % #multipleOf
385− {-# INLINE labelOptic #-}
386−
387279instance
388280 ( a ~ Maybe Scientific, b ~ Maybe Scientific
389281 ) => LabelOptic "multipleOf" A_Lens NamedSchema NamedSchema a b where
390− labelOptic = #paramSchema % #multipleOf
282+ labelOptic = #schema % #multipleOf
391283 {-# INLINE labelOptic #-}