@@ -52,12 +52,7 @@ import Data.Swagger.Internal.Schema.Validation
5252--
5353-- >>> newtype Nat = Nat Integer deriving Generic
5454-- >>> instance ToJSON Nat where toJSON (Nat n) = toJSON n
55−-- >>> :{
56−-- instance ToSchema Nat where
57−-- declareNamedSchema _ = declareNamedSchema (Proxy :: Proxy Integer)
58−-- & mapped.minimum_ ?~ 0
59−-- :}
60−--
55+-- >>> instance ToSchema Nat where declareNamedSchema proxy = genericDeclareNamedSchema defaultSchemaOptions proxy & mapped.minimum_ ?~ 0
6156-- >>> validateToJSON (Nat 10)
6257-- []
6358-- >>> validateToJSON (Nat (-5))