git.iko.soy/typeable/openapi3
on master help sign in
Add ToSchema instances for Char and Either
d14c993Nickolay Kudasov
src/Data/Swagger/Schema/Internal.hs+8
compare with master
unifiedsplit
@@ -132,6 +132,12 @@ instance ToSchema Word16 where toNamedSchema = unnamed . toSchemaBoundedIntegral
132instance ToSchema Word32 where toNamedSchema = unnamed . toSchemaBoundedIntegral
132instance ToSchema Word32 where toNamedSchema = unnamed . toSchemaBoundedIntegral
133instance ToSchema Word64 where toNamedSchema = unnamed . toSchemaBoundedIntegral
133instance ToSchema Word64 where toNamedSchema = unnamed . toSchemaBoundedIntegral
134
134
135+instance ToSchema Char where
136+ toNamedSchema _ = unnamed $ mempty
137+ & schemaType .~ SchemaString
138+ & schemaMaxLength ?~ 1
139+ & schemaMinLength ?~ 1
140+
135instance ToSchema Double where
141instance ToSchema Double where
136 toNamedSchema _ = unnamed $ mempty & schemaType .~ SchemaNumber
142 toNamedSchema _ = unnamed $ mempty & schemaType .~ SchemaNumber
137
143
@@ -141,6 +147,8 @@ instance ToSchema Float where
141instance ToSchema a => ToSchema (Maybe a) where
147instance ToSchema a => ToSchema (Maybe a) where
142 toNamedSchema _ = unnamed $ toSchema (Proxy :: Proxy a)
148 toNamedSchema _ = unnamed $ toSchema (Proxy :: Proxy a)
143
149
150+instance (ToSchema a, ToSchema b) => ToSchema (Either a b)
151+
144instance ToSchema ()
152instance ToSchema ()
145instance (ToSchema a, ToSchema b) => ToSchema (a, b)
153instance (ToSchema a, ToSchema b) => ToSchema (a, b)
146instance (ToSchema a, ToSchema b, ToSchema c) => ToSchema (a, b, c)
154instance (ToSchema a, ToSchema b, ToSchema c) => ToSchema (a, b, c)