@@ -1,3 +1,4 @@
1+{-# LANGUAGE FlexibleInstances #-}
12{-# LANGUAGE FunctionalDependencies #-}
23{-# LANGUAGE MultiParamTypeClasses #-}
34{-# LANGUAGE TemplateHaskell #-}
@@ -43,6 +44,19 @@ makeLenses ''SwaggerExternalDocs
4344-- Helper classy lenses
4445-- =======================================================================
4546
47+class HasDescription s d | s -> d where
48+ description :: Lens' s d
49+
50+instance HasDescription SwaggerResponse Text where description = swaggerResponseDescription
51+instance HasDescription SwaggerInfo (Maybe Text) where description = swaggerInfoDescription
52+instance HasDescription SwaggerTag (Maybe Text) where description = swaggerTagDescription
53+instance HasDescription SwaggerOperation (Maybe Text) where description = swaggerOperationDescription
54+instance HasDescription SwaggerParameter (Maybe Text) where description = swaggerParameterDescription
55+instance HasDescription SwaggerHeader (Maybe Text) where description = swaggerHeaderDescription
56+instance HasDescription SwaggerSchema (Maybe Text) where description = swaggerSchemaDescription
57+instance HasDescription SwaggerSecurityScheme (Maybe Text) where description = swaggerSecuritySchemeDescription
58+instance HasDescription SwaggerExternalDocs (Maybe Text) where description = swaggerExternalDocsDescription
59+
4660class HasSwaggerSchemaCommon s where
4761 schemaCommon :: Lens' s SwaggerSchemaCommon
4862