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
      ()