"<br />\nwhile received request 1st line was:<br />\n" ^ req)
outchan;
raise Again
- | (Unsupported_method meth) as e ->
+ | (Invalid_HTTP_method meth) as e ->
debug_print (pp_parse_exc e);
respond_error
~code:501
debug_print (pp_parse_exc e);
respond_error ~code:400 ~body:("Malformed URL: '" ^ uri ^ "'") outchan;
raise Again
- | (Unsupported_HTTP_version version) as e ->
+ | (Invalid_HTTP_version version) as e ->
debug_print (pp_parse_exc e);
respond_error
~code:505