From 0f5879216442f004991d1f30aafb3afb50db17c5 Mon Sep 17 00:00:00 2001
From: Claudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Date: Thu, 13 Sep 2007 13:04:29 +0000
Subject: [PATCH] added a debug print

---
 daemons/rdfly/rdfly.ml | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/daemons/rdfly/rdfly.ml b/daemons/rdfly/rdfly.ml
index eadb2c773..9b2a08d2a 100644
--- a/daemons/rdfly/rdfly.ml
+++ b/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