"<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
let server_of_mode = function
| `Single -> Http_tcp_server.simple
- | `Fork -> Http_tcp_server.ocaml_builtin
+ | `Fork -> Http_tcp_server.fork
| `Thread -> Http_tcp_server.thread
(* TODO support also chroot to 'root', not only chdir *)