Add UUID instances

CHANGELOG.md

@@ -1,3 +1,8 @@
+2.1.3
+-----
+
+* Add UUID instances
+
 2.1.2.1
 -------
 

src/Data/Swagger/Internal/ParamSchema.hs

@@ -30,6 +30,7 @@ import qualified Data.Vector.Primitive as VP
 import qualified Data.Vector.Storable as VS
 import qualified Data.Vector.Unboxed as VU
 import Data.Word
+import Data.UUID (UUID)
 
 import Data.Swagger.Internal
 import Data.Swagger.Lens
@@ -221,6 +222,11 @@ instance ToParamSchema () where
     & type_ .~ SwaggerString
     & enum_ ?~ ["_"]
 
+instance ToParamSchema UUID where
+  toParamSchema _ = mempty
+    & type_ .~ SwaggerString
+    & format ?~ "uuid"
+
 -- | A configurable generic @'ParamSchema'@ creator.
 --
 -- >>> :set -XDeriveGeneric

src/Data/Swagger/Internal/Schema.hs

@@ -53,6 +53,7 @@ import qualified Data.Vector.Storable as VS
 import qualified Data.Vector.Unboxed as VU
 import Data.Word
 import GHC.Generics
+import Data.UUID (UUID)
 
 import Data.Swagger.Declare
 import Data.Swagger.Internal
@@ -433,6 +434,8 @@ instance (ToSchema a, ToSchema b) => ToSchema (Either a b)
 instance ToSchema () where
   declareNamedSchema _ = pure (NamedSchema Nothing nullarySchema)
 
+instance ToSchema UUID where declareNamedSchema = plain . paramSchemaToSchema
+
 instance (ToSchema a, ToSchema b) => ToSchema (a, b)
 instance (ToSchema a, ToSchema b, ToSchema c) => ToSchema (a, b, c)
 instance (ToSchema a, ToSchema b, ToSchema c, ToSchema d) => ToSchema (a, b, c, d)

swagger2.cabal

@@ -1,5 +1,5 @@
 name:                swagger2
-version:             2.1.2.1
+version:             2.1.3
 synopsis:            Swagger 2.0 data model
 description:         Please see README.md
 homepage:            https://github.com/GetShopTV/swagger2
@@ -57,6 +57,7 @@ library
                      , transformers
                      , unordered-containers
                      , vector
+                     , uuid >=1.3.12 && <1.4
   default-language:    Haskell2010
 
 test-suite spec