From c37b8d7f83e77ded70f8937ad70fc985b89d3ef1 Mon Sep 17 00:00:00 2001
From: Hugo Peters <hugo.peters@channable.com>
Date: Thu, 5 Sep 2024 14:36:32 +0200
Subject: [PATCH] set an example value of zero for standard numeric values

---
 src/Data/OpenApi/Internal/ParamSchema.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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