CA-263064: Stop logging the body of jsonrpc requests.

Also removed additional debug line that was not particularly useful.

Signed-off-by: Konstantina Chremmou <[email protected]>

Author: Konstantina Chremmou

ocaml/xapi/api_server.ml

@@ -195,11 +195,8 @@ let callback is_json req bio _ =
 let jsoncallback req bio _ =
   let fd = Buf_io.fd_of bio in (* fd only used for writing *)
   let body = Http_svr.read_body ~limit:Db_globs.http_limit_max_rpc_size req bio in
-  debug "Here in jsoncallback";
   try
-    debug "Got the jsonrpc body: %s" body;
     let rpc = Jsonrpc.call_of_string body in
-    debug "Got the jsonrpc body: %s" body;
     let response = Jsonrpc.a_of_response
         ~empty:Bigbuffer.make
         ~append:(fun buf s -> Bigbuffer.append_substring buf s 0 (String.length s))