# HG changeset patch # User Rob Hoes <[email protected]> OCamlDoc: Properly removes all whitespace and *'s from the beginning of lines in ocamldoc comments.
Signed-off-by: Rob Hoes <[email protected]> diff -r 0065f015b7ce ocaml/doc/odoc_json.ml --- a/ocaml/doc/odoc_json.ml +++ b/ocaml/doc/odoc_json.ml @@ -87,7 +87,7 @@ else Buffer.add_char res str.[i] | 1 -> - if str.[i] != '\n' && str.[i] != ' ' & str.[i] != '*' then begin + if not (List.mem str.[i] ['\n'; '\t'; ' '; '*']) then begin phase := 0; Buffer.add_char res str.[i] end
# HG changeset patch # User Rob Hoes <[email protected]> OCamlDoc: Properly removes all whitespace and *'s from the beginning of lines in ocamldoc comments. Signed-off-by: Rob Hoes <[email protected]> diff -r 0065f015b7ce ocaml/doc/odoc_json.ml --- a/ocaml/doc/odoc_json.ml +++ b/ocaml/doc/odoc_json.ml @@ -87,7 +87,7 @@ else Buffer.add_char res str.[i] | 1 -> - if str.[i] != '\n' && str.[i] != ' ' & str.[i] != '*' then begin + if not (List.mem str.[i] ['\n'; '\t'; ' '; '*']) then begin phase := 0; Buffer.add_char res str.[i] end
_______________________________________________ xen-api mailing list [email protected] http://lists.xensource.com/mailman/listinfo/xen-api
