let comment str =
if Pcre.pmatch ~rex:multiline_RE str then
- "\n(** " ^ (Pcre.replace ~rex:newline_RE str) ^ " **)"
+ "\n(** " ^ (Pcre.replace ~rex:newline_RE str) ^ " *)"
else
- "\n(**\n" ^ str ^ "\n**)"
+ "\n(**\n" ^ str ^ "\n*)"
let first_line s =
let s = Pcre.replace ~rex:heading_nl_RE s in