From ecf2569da21511772755b10ce2eae60a6862533b Mon Sep 17 00:00:00 2001 From: Claudio Sacerdoti Coen Date: Thu, 13 Sep 2007 13:04:29 +0000 Subject: [PATCH] added a debug print --- helm/software/daemons/rdfly/rdfly.ml | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/helm/software/daemons/rdfly/rdfly.ml b/helm/software/daemons/rdfly/rdfly.ml index eadb2c773..9b2a08d2a 100644 --- a/helm/software/daemons/rdfly/rdfly.ml +++ b/helm/software/daemons/rdfly/rdfly.ml @@ -137,8 +137,8 @@ let callback (req: Http_types.request) ch = | "/help" -> return_html_error "yeah right..." ch | "/get" -> - let obj = req#param "object" - and kind = req#param "kind" in + let obj = req#param "object" in + let kind = req#param "kind" in let dbd = SQL.quick_connect db_spec in begin match kind with @@ -155,6 +155,7 @@ let callback (req: Http_types.request) ch = | Http_types.Param_not_found attr_name -> return_400 (Printf.sprintf "Parameter '%s' is missing" attr_name) ch | exc -> + prerr_endline (Printexc.to_string exc); return_html_error ("Uncaught exception: " ^ (Printexc.to_string exc)) ch let main () = @@ -165,6 +166,6 @@ let main () = in Http_daemon.main d_spec with Sys.Break -> () -in +;; main () -- 2.39.2