+let submit_req ~url msg =
+ msg_of_string (Hbugs_misc.http_post ~body:(string_of_msg msg) url)
+let return_xml_msg body outchan =
+ Http_daemon.respond ~headers:["Content-Type", "text/xml"] ~body outchan
+let respond_msg msg = return_xml_msg (string_of_msg msg);;
+let respond_exc name value = respond_msg (Exception (name, value));;
+