@@ -212,7 +212,7 @@ inlineSchemasWhen p defs = template %~ deref
212-- /NOTE:/ if a referenced schema is not found in definitions
212-- /NOTE:/ if a referenced schema is not found in definitions
213-- it stays referenced even if it appears in the list of names.
213-- it stays referenced even if it appears in the list of names.
215−-- __WARNING:__ @'inlineSchemasWhen'@ will produce infinite schemas
215+-- __WARNING:__ @'inlineSchemas'@ will produce infinite schemas
216-- when inlining recursive schemas.
216-- when inlining recursive schemas.
217inlineSchemas :: Data s => [T.Text] -> Definitions -> s -> s
217inlineSchemas :: Data s => [T.Text] -> Definitions -> s -> s
218inlineSchemas names = inlineSchemasWhen (`elem` names)
218inlineSchemas names = inlineSchemasWhen (`elem` names)
@@ -220,7 +220,7 @@ inlineSchemas names = inlineSchemasWhen (`elem` names)
220-- | Inline all schema references for which the definition
220-- | Inline all schema references for which the definition
221-- can be found in @'Definitions'@.
221-- can be found in @'Definitions'@.
223−-- __WARNING:__ @'inlineSchemasWhen'@ will produce infinite schemas
223+-- __WARNING:__ @'inlineAllSchemas'@ will produce infinite schemas
224-- when inlining recursive schemas.
224-- when inlining recursive schemas.
225inlineAllSchemas :: Data s => Definitions -> s -> s
225inlineAllSchemas :: Data s => Definitions -> s -> s
226inlineAllSchemas = inlineSchemasWhen (const True)
226inlineAllSchemas = inlineSchemasWhen (const True)