diff --git a/src/Data/OpenApi/Internal/ParamSchema.hs b/src/Data/OpenApi/Internal/ParamSchema.hs index 75b637a2..729c7d0b 100644 --- a/src/Data/OpenApi/Internal/ParamSchema.hs +++ b/src/Data/OpenApi/Internal/ParamSchema.hs @@ -18,7 +18,7 @@ module Data.OpenApi.Internal.ParamSchema where import Control.Lens -import Data.Aeson (ToJSON (..)) +import Data.Aeson (ToJSON (..), Value(Number)) import Data.Proxy import GHC.Generics @@ -168,6 +168,7 @@ toParamSchemaBoundedIntegral _ = mempty & type_ ?~ OpenApiInteger & minimum_ ?~ fromInteger (toInteger (minBound :: a)) & maximum_ ?~ fromInteger (toInteger (maxBound :: a)) + & example ?~ Number 0 instance ToParamSchema Char where toParamSchema _ = mempty