Cohttp debugging message adjustments

src/server/ocsigen_cohttp.ml

@@ -98,11 +98,6 @@ let make_cookies_headers path t hds =
 
 let handler ~ssl ~address ~port ~connector (flow, conn) request body =
 
-  Lwt_log.ign_info_f ~section
-    "Receiving the request: %s\nConnection ID: %s"
-    (Format.asprintf "%a" print_request request)
-    (Cohttp.Connection.to_string conn);
-
   let filenames = ref [] in
   let edn = Conduit_lwt_unix.endp_of_flow flow in
   let rec getsockname = function
@@ -149,9 +144,6 @@ let handler ~ssl ~address ~port ~connector (flow, conn) request body =
         None, `Internal_server_error
     in
 
-    Lwt_log.ign_warning_f ~section "Returning error code %i."
-      (Cohttp.Code.code_of_status (ret_code :> Cohttp.Code.status_code));
-
     let body =
       match ret_code with
       | `Not_found -> "Not Found"
@@ -207,7 +199,7 @@ let handler ~ssl ~address ~port ~connector (flow, conn) request body =
 
 let conn_closed (flow, conn) =
   try
-    Lwt_log.ign_info_f ~section
+    Lwt_log.ign_debug_f ~section
       "Connection closed:\n%s"
       (Cohttp.Connection.to_string conn);
     let wakener = Hashtbl.find waiters conn in