@@ -212,7 +212,7 @@ inlineSchemasWhen p defs = template %~ deref
212212-- /NOTE:/ if a referenced schema is not found in definitions
213213-- it stays referenced even if it appears in the list of names.
214214--
215−-- __WARNING:__ @'inlineSchemasWhen'@ will produce infinite schemas
215+-- __WARNING:__ @'inlineSchemas'@ will produce infinite schemas
216216-- when inlining recursive schemas.
217217inlineSchemas :: Data s => [T.Text] -> Definitions -> s -> s
218218inlineSchemas names = inlineSchemasWhen (`elem` names)
@@ -220,7 +220,7 @@ inlineSchemas names = inlineSchemasWhen (`elem` names)
220220-- | Inline all schema references for which the definition
221221-- can be found in @'Definitions'@.
222222--
223−-- __WARNING:__ @'inlineSchemasWhen'@ will produce infinite schemas
223+-- __WARNING:__ @'inlineAllSchemas'@ will produce infinite schemas
224224-- when inlining recursive schemas.
225225inlineAllSchemas :: Data s => Definitions -> s -> s
226226inlineAllSchemas = inlineSchemasWhen (const True)