Permalink
Browse files

Xhtmlcompact_lite: output doctype in xhtml_print.

  • Loading branch information...
1 parent 55c83a3 commit 537a3c29ae1cd5ac817a98c58f7acfd407a58fce @mfp committed Jan 8, 2009
Showing with 1 addition and 0 deletions.
  1. +1 −0 xhtmlcompact_lite.ml
@@ -145,6 +145,7 @@ let x_print, xh_print =
(fun ?header ?(encode = encode_unsafe) ?html_compat doctype arbre ->
let b = B.create 16384 in
(match header with Some s -> B.add_string b s | None -> ());
+ B.add_string b doctype;
aux b ?encode ?html_compat doctype arbre;
B.contents b))

0 comments on commit 537a3c2

Please sign in to comment.