# HG changeset patch
# User Rob Hoes <rob.hoes@xxxxxxxxxx>
OCamlDoc: Properly removes all whitespace and *'s from the beginning of lines in ocamldoc comments.

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

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