@@ -725,7 +725,7 @@ instance OVERLAPPING_ Constructor c => GToSchema (C1 c U1) where
725 gdeclareNamedSchema = gdeclareNamedSumSchema
725 gdeclareNamedSchema = gdeclareNamedSumSchema
727-- | Single field constructor.
727-- | Single field constructor.
728−instance (Selector s, GToSchema f) => GToSchema (C1 c (S1 s f)) where
728+instance (Selector s, GToSchema f, GToSchema (S1 s f)) => GToSchema (C1 c (S1 s f)) where
729 gdeclareNamedSchema opts _ s
729 gdeclareNamedSchema opts _ s
730 | unwrapUnaryRecords opts = fieldSchema
730 | unwrapUnaryRecords opts = fieldSchema
731 | otherwise =
731 | otherwise =