@@ -43,6 +43,7 @@ import Data.Version (Version)
43import Numeric.Natural.Compat (Natural)
43import Numeric.Natural.Compat (Natural)
44import Data.Word
44import Data.Word
45import Data.UUID.Types (UUID)
45import Data.UUID.Types (UUID)
46+import Web.Cookie (SetCookie)
47import Data.Swagger.Internal
48import Data.Swagger.Internal
48import Data.Swagger.Lens
49import Data.Swagger.Lens
@@ -224,6 +225,11 @@ instance ToParamSchema Version where
224 & type_ .~ SwaggerString
225 & type_ .~ SwaggerString
225 & pattern ?~ "^\\d+(\\.\\d+)*$"
226 & pattern ?~ "^\\d+(\\.\\d+)*$"
228+instance ToParamSchema SetCookie where
229+ toParamSchema _ = mempty
230+ & type_ .~ SwaggerString
227#if __GLASGOW_HASKELL__ < 800
233#if __GLASGOW_HASKELL__ < 800
229type family ToParamSchemaByteStringError bs where
235type family ToParamSchemaByteStringError bs where