diff options
| -rw-r--r-- | generator/generator_c.ml | 2 | ||||
| -rw-r--r-- | generator/generator_docstrings.ml | 6 |
2 files changed, 4 insertions, 4 deletions
diff --git a/generator/generator_c.ml b/generator/generator_c.ml index fa9c0ff9..c9bfb1fc 100644 --- a/generator/generator_c.ml +++ b/generator/generator_c.ml @@ -255,7 +255,7 @@ I<The caller must free the returned buffer after use>.\n\n" pr "This function takes a key or passphrase parameter which could contain sensitive material. Read the section L</KEYS AND PASSPHRASES> for more information.\n\n"; - (match deprecation_notice flags with + (match deprecation_notice ~prefix:"guestfs_" flags with | None -> () | Some txt -> pr "%s\n\n" txt ); diff --git a/generator/generator_docstrings.ml b/generator/generator_docstrings.ml index de31aa52..6d242bdc 100644 --- a/generator/generator_docstrings.ml +++ b/generator/generator_docstrings.ml @@ -40,17 +40,17 @@ let danger_will_robinson = "B<This command is dangerous. Without careful use you can easily destroy all your data>." -let deprecation_notice flags = +let deprecation_notice ?(prefix = "") flags = try let alt = find_map (function DeprecatedBy str -> Some str | _ -> None) flags in let txt = sprintf "This function is deprecated. -In new code, use the C<%s> call instead. +In new code, use the L</%s%s> call instead. Deprecated functions will not be removed from the API, but the fact that they are deprecated indicates that there are problems -with correct use of these functions." alt in +with correct use of these functions." prefix alt in Some txt with Not_found -> None |