OCamlDoc: Properly removes all whitespace and *'s from the beginning of lines in...

Signed-off-by: Rob Hoes <rob.hoes@citrix.com>

diff --git a/ocaml/doc/odoc_json.ml b/ocaml/doc/odoc_json.ml
index 9e5dec55d2f7d86f8cf893e4e6ad373d1aa77b2f..306cfff967ca0e2e36d9bdb943a5aece6a998729 100644 (file)
--- a/ocaml/doc/odoc_json.ml
+++ b/ocaml/doc/odoc_json.ml
@@ -87,7 +87,7 @@ let remove_asterisks str =
                        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