@@ -132,6 +132,12 @@ instance ToSchema Word16 where toNamedSchema = unnamed . toSchemaBoundedIntegral
132132instance ToSchema Word32 where toNamedSchema = unnamed . toSchemaBoundedIntegral
133133instance ToSchema Word64 where toNamedSchema = unnamed . toSchemaBoundedIntegral
134134
135+instance ToSchema Char where
136+ toNamedSchema _ = unnamed $ mempty
137+ & schemaType .~ SchemaString
138+ & schemaMaxLength ?~ 1
139+ & schemaMinLength ?~ 1
140+
135141instance ToSchema Double where
136142 toNamedSchema _ = unnamed $ mempty & schemaType .~ SchemaNumber
137143
@@ -141,6 +147,8 @@ instance ToSchema Float where
141147instance ToSchema a => ToSchema (Maybe a) where
142148 toNamedSchema _ = unnamed $ toSchema (Proxy :: Proxy a)
143149
150+instance (ToSchema a, ToSchema b) => ToSchema (Either a b)
151+
144152instance ToSchema ()
145153instance (ToSchema a, ToSchema b) => ToSchema (a, b)
146154instance (ToSchema a, ToSchema b, ToSchema c) => ToSchema (a, b, c)