Merge pull request #123 from pngwjpgh/feature/Natural

Add ParamSchema & Schema for Numeric.Natural

src/Data/Swagger/Internal/ParamSchema.hs

@@ -39,6 +39,7 @@ import qualified Data.Vector as V
 import qualified Data.Vector.Primitive as VP
 import qualified Data.Vector.Storable as VS
 import qualified Data.Vector.Unboxed as VU
+import Numeric.Natural
 import Data.Word
 import Data.UUID.Types (UUID)
 
@@ -125,6 +126,12 @@ instance ToParamSchema Bool where
 instance ToParamSchema Integer where
   toParamSchema _ = mempty & type_ .~ SwaggerInteger
 
+instance ToParamSchema Natural where
+  toParamSchema _ = mempty
+    & type_            .~ SwaggerInteger
+    & minimum_         ?~ 0
+    & exclusiveMinimum ?~ False
+
 instance ToParamSchema Int    where toParamSchema = toParamSchemaBoundedIntegral
 instance ToParamSchema Int8   where toParamSchema = toParamSchemaBoundedIntegral
 instance ToParamSchema Int16  where toParamSchema = toParamSchemaBoundedIntegral

src/Data/Swagger/Internal/Schema.hs

@@ -56,6 +56,7 @@ import qualified Data.Vector as V
 import qualified Data.Vector.Primitive as VP
 import qualified Data.Vector.Storable as VS
 import qualified Data.Vector.Unboxed as VU
+import Numeric.Natural
 import Data.Word
 import GHC.Generics
 import qualified Data.UUID.Types as UUID
@@ -419,6 +420,7 @@ instance OVERLAPPABLE_ ToSchema a => ToSchema [a] where
 instance OVERLAPPING_ ToSchema String where declareNamedSchema = plain . paramSchemaToSchema
 instance ToSchema Bool    where declareNamedSchema = plain . paramSchemaToSchema
 instance ToSchema Integer where declareNamedSchema = plain . paramSchemaToSchema
+instance ToSchema Natural where declareNamedSchema = plain . paramSchemaToSchema
 instance ToSchema Int     where declareNamedSchema = plain . paramSchemaToSchema
 instance ToSchema Int8    where declareNamedSchema = plain . paramSchemaToSchema
 instance ToSchema Int16   where declareNamedSchema = plain . paramSchemaToSchema

swagger2.cabal

@@ -69,6 +69,8 @@ library
                      , unordered-containers
                      , vector
                      , uuid-types >=1.0.2 && <1.1
+  if !impl(ghc >= 7.10)
+     build-depends:    nats >=1.1.1 && <1.2
   default-language:    Haskell2010
 
 test-suite spec