@@ -12,6 +12,7 @@ import Control.Lens
12import Data.Aeson
12import Data.Aeson
13import Data.Aeson.QQ
13import Data.Aeson.QQ
14import Data.HashMap.Strict (HashMap)
14import Data.HashMap.Strict (HashMap)
15+import qualified Data.Set as Set
15import Data.Text (Text)
16import Data.Text (Text)
17import Data.Swagger
18import Data.Swagger
@@ -116,7 +117,7 @@ licenseExampleJSON = [aesonQQ|
117operationExample :: Operation
118operationExample :: Operation
118operationExample = mempty
119operationExample = mempty
119− & tags .~ ["pet"]
120+ & tags .~ Set.fromList ["pet"]
120 & summary ?~ "Updates a pet in the store with form data"
121 & summary ?~ "Updates a pet in the store with form data"
121 & description ?~ ""
122 & description ?~ ""
122 & operationId ?~ "updatePetWithForm"
123 & operationId ?~ "updatePetWithForm"
@@ -507,7 +508,7 @@ swaggerExample = mempty
507 & schema .~ ParamOther (mempty
508 & schema .~ ParamOther (mempty
508 & in_ .~ ParamPath
509 & in_ .~ ParamPath
509 & type_ .~ SwaggerString ) ]
510 & type_ .~ SwaggerString ) ]
510− & tags .~ [ "todo" ] ))
511+ & tags .~ Set.fromList [ "todo" ] ))
512swaggerExampleJSON :: Value
513swaggerExampleJSON :: Value
513swaggerExampleJSON = [aesonQQ|
514swaggerExampleJSON = [aesonQQ|