let check_for_error dom =
let ddom = dom >>> JSOO.get "documentElement" in
let h = (ddom >>> JSOO.get "tagName") >>> JSOO.as_string in
if h = "parsererror"
then
failwith ( "parsererror : "
^ (ddom >>> JSOO.get "textContent" >>> JSOO.as_string))
else
()