Commit 935e396c authored by Kim Nguyễn's avatar Kim Nguyễn
Browse files

Disable printing of xml standalone declaration.

parent d2a82c3f
......@@ -159,10 +159,10 @@ let to_buf ~utf8 buffer ns_table v subst =
List.iter write_att attrs;
wms "/>"
and element_end q = wms ("</" ^ Ns.Printer.tag printer (Atoms.V.value q) ^ ">")
and document_start () =
wms ("<?xml version='1.0' encoding='" ^
and document_start () = ()
(*wms ("<?xml version='1.0' encoding='" ^
(match to_enc with `Enc_utf8 -> "UTF-8" | `Enc_iso88591 -> "ISO-8859-1")^
"'?>\n")
"'?>\n")*)
in
let rec register_elt = function
......
......@@ -1477,6 +1477,8 @@ module Record = struct
List.fold_left
(fun accu (d1, d2) -> if disjoint d1 t1 then accu else cap accu d2)
any_record r
end
module Print = struct
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment