@@ -12,6 +12,7 @@ import Control.Lens
1212import Data.Aeson
1313import Data.Aeson.QQ
1414import Data.HashMap.Strict (HashMap)
15+import qualified Data.Set as Set
1516import Data.Text (Text)
1617
1718import Data.Swagger
@@ -116,7 +117,7 @@ licenseExampleJSON = [aesonQQ|
116117
117118operationExample :: Operation
118119operationExample = mempty
119− & tags .~ ["pet"]
120+ & tags .~ Set.fromList ["pet"]
120121 & summary ?~ "Updates a pet in the store with form data"
121122 & description ?~ ""
122123 & operationId ?~ "updatePetWithForm"
@@ -507,7 +508,7 @@ swaggerExample = mempty
507508 & schema .~ ParamOther (mempty
508509 & in_ .~ ParamPath
509510 & type_ .~ SwaggerString ) ]
510− & tags .~ [ "todo" ] ))
511+ & tags .~ Set.fromList [ "todo" ] ))
511512
512513swaggerExampleJSON :: Value
513514swaggerExampleJSON = [aesonQQ|