Commit 97158a7b authored by Kim Nguyễn's avatar Kim Nguyễn
Browse files

Fix the return value of load_html in the markup backend.

parent 7274f412
Pipeline #194 passed with stages
in 4 minutes and 36 seconds
......@@ -52,7 +52,11 @@ let markup_load_xml otag ctag text s =
let use () =
let open Load_xml in
xml_parser := (markup_load_xml start_element_handler end_element_handler text_handler);
html_loader := (mk_load_xml (markup_load_html start_element_handler end_element_handler text_handler) ~ns:true )
html_loader :=
fun s ->
Value.sequence [
(mk_load_xml (markup_load_html start_element_handler end_element_handler text_handler) ~ns:true )
s ]
let () =
Cduce_config.register ~priority:2
......
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