git.iko.soy/typeable/openapi3
on master help sign in
Remove unused gtoSchema and gschemaName
a07d324Nickolay Kudasov
src/Data/Swagger/Internal/Schema.hs−6
compare with master
unifiedsplit
@@ -320,15 +320,9 @@ nullarySchema = mempty
320gtoNamedSchema :: GToSchema f => SchemaOptions -> proxy f -> NamedSchema
320gtoNamedSchema :: GToSchema f => SchemaOptions -> proxy f -> NamedSchema
321gtoNamedSchema opts proxy = undeclare $ gdeclareNamedSchema opts proxy mempty
321gtoNamedSchema opts proxy = undeclare $ gdeclareNamedSchema opts proxy mempty
322
322
323−gtoSchema :: GToSchema f => SchemaOptions -> proxy f -> Schema
324−gtoSchema opts = snd . gtoNamedSchema opts
325−
326gdeclareSchema :: GToSchema f => SchemaOptions -> proxy f -> Declare Definitions Schema
323gdeclareSchema :: GToSchema f => SchemaOptions -> proxy f -> Declare Definitions Schema
327gdeclareSchema opts proxy = snd <$> gdeclareNamedSchema opts proxy mempty
324gdeclareSchema opts proxy = snd <$> gdeclareNamedSchema opts proxy mempty
328
325
329−gschemaName :: GToSchema f => SchemaOptions -> proxy f -> Maybe String
330−gschemaName opts = fst . gtoNamedSchema opts
331−
332instance GToSchema U1 where
326instance GToSchema U1 where
333 gdeclareNamedSchema _ _ _ = plain nullarySchema
327 gdeclareNamedSchema _ _ _ = plain nullarySchema
334
328