mirrors/libguestfs
1
0
Fork 0
mirror of https://github.com/libguestfs/libguestfs.git synced 2026-03-21 22:53:37 +00:00
Code Issues Packages Projects Releases Wiki Activity

generator: ocaml: Don't link to undocumented methods.

Browse Source 
As for the previous commit, don't link to a method if it's not
exported by the OCaml bindings.
This commit is contained in:
Richard W.M. Jones
2017-03-03 08:44:15 +00:00
parent 41040182ae
commit 7527312784
1 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
generator/OCaml.ml
View File

@@ -189,7 +189,11 @@ end
| Not_deprecated -> ()
| Replaced_by replacement ->
has_tags := true;
pr "\n\n @deprecated Use {!%s} instead" replacement
let f_replacement = Actions.find replacement in
if is_documented f_replacement then
pr "\n\n @deprecated Use {!%s} instead" replacement
else
pr "\n\n @deprecated This is replaced by method %s which is not exported by the OCaml bindings" replacement
| Deprecated_no_replacement ->
has_tags := true;
pr "\n\n @deprecated There is no documented replacement"