(String.concat "<br />\n" msgs) outchan
| exc ->
let msg = "Uncaught exception: " ^ (Printexc.to_string exc) in
- log_failure msg;
- return_html_error "Uncaught_exception" msg outchan
+ (match exc with
+ | Http_getter_types.Key_not_found uri ->
+ return_html_error "Key_not_found" msg outchan
+ | _ ->
+ log_failure msg;
+ return_html_error "Uncaught_exception" msg outchan)
(* Main *)