@@ -63,6 +63,13 @@ instance ToSchema Float where
6363instance ToSchema a => ToSchema (Maybe a) where
6464 toSchema _ = toSchema (Proxy :: Proxy a)
6565
66+instance (ToSchema a, ToSchema b) => ToSchema (a, b)
67+instance (ToSchema a, ToSchema b, ToSchema c) => ToSchema (a, b, c)
68+instance (ToSchema a, ToSchema b, ToSchema c, ToSchema d) => ToSchema (a, b, c, d)
69+instance (ToSchema a, ToSchema b, ToSchema c, ToSchema d, ToSchema e) => ToSchema (a, b, c, d, e)
70+instance (ToSchema a, ToSchema b, ToSchema c, ToSchema d, ToSchema e, ToSchema f) => ToSchema (a, b, c, d, e, f)
71+instance (ToSchema a, ToSchema b, ToSchema c, ToSchema d, ToSchema e, ToSchema f, ToSchema g) => ToSchema (a, b, c, d, e, f, g)
72+
6673toSchemaBoundedIntegral :: forall a proxy. (Bounded a, Integral a) => proxy a -> Schema
6774toSchemaBoundedIntegral _ = mempty
6875 & schemaType .~ SchemaInteger