Commit b30c222b authored by Pietro Abate's avatar Pietro Abate
Browse files

[r2004-02-06 22:40:26 by beppe] Bugfix (thanks to Alex Barretta)

Original author: beppe
Date: 2004-02-06 22:40:26+00:00
parent ead9292f
......@@ -121,7 +121,7 @@ let load_expat =
let p = Expat.parser_create "" in
Expat.set_start_element_handler p start_element_handler;
Expat.set_end_element_handler p end_element_handler;
Expat.set_character_data_handler p add_string txt;
Expat.set_character_data_handler p (add_string txt);
let rec loop () =
let n = input ic buf 0 buflen in
if (n > 0) then (Expat.parse_sub p buf 0 n; loop ())
......@@ -215,3 +215,18 @@ let load_html s =
in
val_of_docs (Nethtml.decode ~enc:`Enc_utf8 ~subst:(fun _ -> "???") doc)
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