@@ -11,38 +11,61 @@ import Data.Swagger.Internal
11import Data.Text (Text)
11import Data.Text (Text)
13-- =======================================================================
13-- =======================================================================
14−-- TH derived lenses
14+-- * TH derived lenses
15−-- =======================================================================
16+-- ** 'Swagger' lenses
17makeLenses ''Swagger
17makeLenses ''Swagger
18makeLenses ''Host
19makeLenses ''Host
19makeLenses ''Info
21makeLenses ''Info
22+-- ** 'Contact' lenses
20makeLenses ''Contact
23makeLenses ''Contact
24+-- ** 'License' lenses
21makeLenses ''License
25makeLenses ''License
22makeLenses ''Paths
27makeLenses ''Paths
28+-- ** 'PathItem' lenses
23makeLenses ''PathItem
29makeLenses ''PathItem
24makeLenses ''Tag
31makeLenses ''Tag
32+-- ** 'Operation' lenses
25makeLenses ''Operation
33makeLenses ''Operation
26makeLenses ''Param
35makeLenses ''Param
36+-- ** 'ParamAnySchema' prisms
27makePrisms ''ParamAnySchema
37makePrisms ''ParamAnySchema
38+-- ** 'ParamOtherSchema' lenses
28makeLenses ''ParamOtherSchema
39makeLenses ''ParamOtherSchema
29makeLenses ''Items
41makeLenses ''Items
30makeLenses ''Header
43makeLenses ''Header
31makeLenses ''Schema
45makeLenses ''Schema
46+-- ** 'SchemaItems' prisms
32makePrisms ''SchemaItems
47makePrisms ''SchemaItems
48+-- ** 'ParamSchema' lenses
33makeLenses ''ParamSchema
49makeLenses ''ParamSchema
34makeLenses ''Xml
51makeLenses ''Xml
52+-- ** 'Responses' lenses
35makeLenses ''Responses
53makeLenses ''Responses
54+-- ** 'Response' lenses
36makeLenses ''Response
55makeLenses ''Response
56+-- ** 'SecurityScheme' lenses
37makeLenses ''SecurityScheme
57makeLenses ''SecurityScheme
58+-- ** 'SecuritySchemeType' prisms
38makePrisms ''SecuritySchemeType
59makePrisms ''SecuritySchemeType
60+-- ** 'ApiKeyParams' lenses
39makeLenses ''ApiKeyParams
61makeLenses ''ApiKeyParams
62+-- ** 'OAuth2Params' lenses
40makeLenses ''OAuth2Params
63makeLenses ''OAuth2Params
64+-- ** 'ExternalDocs' lenses
41makeLenses ''ExternalDocs
65makeLenses ''ExternalDocs
43-- =======================================================================
67-- =======================================================================
44−-- Helper classy lenses
68+-- * Helper classy lenses
45−-- =======================================================================
47class HasDescription s d | s -> d where
70class HasDescription s d | s -> d where
48 description :: Lens' s d
71 description :: Lens' s d