Permalink
Browse files

include a blank DTD by default in the XML stringify

  • Loading branch information...
1 parent 0b97891 commit 336feb7ba9b283decfc2f19693737383fe9acbd2 @avsm committed Dec 4, 2010
Showing with 1 addition and 1 deletion.
  1. +1 −1 lib/cow/lib/xml.ml
View
@@ -1197,7 +1197,7 @@ let rec output_t o = function
let to_string t =
let buf = Buffer.create 1024 in
let o = make_output (`Buffer buf) in
- output o (`Dtd None);
+ output o (`Dtd (Some ""));
output_t o t;
Buffer.contents buf

0 comments on commit 336feb7

Please sign in to comment.