@@ -320,15 +320,9 @@ nullarySchema = mempty
320320gtoNamedSchema :: GToSchema f => SchemaOptions -> proxy f -> NamedSchema
321321gtoNamedSchema opts proxy = undeclare $ gdeclareNamedSchema opts proxy mempty
322322
323−gtoSchema :: GToSchema f => SchemaOptions -> proxy f -> Schema
324−gtoSchema opts = snd . gtoNamedSchema opts
325−
326323gdeclareSchema :: GToSchema f => SchemaOptions -> proxy f -> Declare Definitions Schema
327324gdeclareSchema opts proxy = snd <$> gdeclareNamedSchema opts proxy mempty
328325
329−gschemaName :: GToSchema f => SchemaOptions -> proxy f -> Maybe String
330−gschemaName opts = fst . gtoNamedSchema opts
331−
332326instance GToSchema U1 where
333327 gdeclareNamedSchema _ _ _ = plain nullarySchema
334328