@@ -289,7 +289,7 @@ instance {-# OVERLAPPABLE #-} GToSchema f => GToSchema (C1 c f) where
289289-- | Single field constructor.
290290instance (Selector s, GToSchema f) => GToSchema (C1 c (S1 s f)) where
291291 gtoNamedSchema opts _ s
292− | unwrapUnaryRecords opts = unnamed (snd fieldSchema)
292+ | unwrapUnaryRecords opts = fieldSchema
293293 | otherwise =
294294 case schema ^. schemaItems of
295295 Just (SchemaItemsArray [_]) -> fieldSchema