Commits

Dmitry Grebeniuk  committed 02cabae

.

  • Participants
  • Parent commits c0697ff

Comments (0)

Files changed (1)

         let disp_ctx = server_disp ctx_for_serv in
         server_loop
         where rec server_loop msg =
+          (* IO.printf "server_loop: msg\n%!" >>= fun () -> *)
           match msg with
           [ Msg (arg, dest) ->
               IO.catch
                 (fun () -> disp_ctx arg)
                 (fun e -> IO.return (CR_Error (`Exn (string_of_exn e))))
               >>= fun call_resp ->
+              (* IO.printf "server_loop: got reply\n%!" >>= fun () -> *)
               dest_put dest call_resp >>= fun () ->
+              (* IO.printf "server_loop: put reply\n%!" >>= fun () -> *)
               ctx_for_proc#continue server_loop
           | Cmd `Shutdown ->
               ctx_for_proc#exit