git.iko.soy/typeable/openapi3
on master help sign in
Add ToSchema instances for tuples (up to 7-tuple)
8e76c1aNickolay Kudasov
src/Data/Swagger/Schema/Internal.hs+7
compare with master
unifiedsplit
@@ -63,6 +63,13 @@ instance ToSchema Float where
63instance ToSchema a => ToSchema (Maybe a) where
63instance ToSchema a => ToSchema (Maybe a) where
64 toSchema _ = toSchema (Proxy :: Proxy a)
64 toSchema _ = toSchema (Proxy :: Proxy a)
65
65
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+
66toSchemaBoundedIntegral :: forall a proxy. (Bounded a, Integral a) => proxy a -> Schema
73toSchemaBoundedIntegral :: forall a proxy. (Bounded a, Integral a) => proxy a -> Schema
67toSchemaBoundedIntegral _ = mempty
74toSchemaBoundedIntegral _ = mempty
68 & schemaType .~ SchemaInteger
75 & schemaType .~ SchemaInteger