- let msg = "Uncaught exception: " ^ (Printexc.to_string exc) in
- log_failure msg;
- return_html_error "Uncaught_exception" msg outchan
+ let msg = "uncaught exception: " ^ (Printexc.to_string exc) in
+ (match exc with
+ | Http_getter_types.Key_not_found uri ->
+ return_html_error ("key_not_found", uri) msg outchan
+ | _ ->
+ log_failure msg;
+ return_html_error ("uncaught_exception", msg) msg outchan)