Fix typo.

diff --git a/libs/stdext/eventloop.ml b/libs/stdext/eventloop.ml
index ec2a3d9e59e380a5491675aaf1d559dd5beb6543..ff32fabf4986ecce75e1124a984be60a174a355b 100644 (file)
--- a/libs/stdext/eventloop.ml
+++ b/libs/stdext/eventloop.ml
@@ -279,7 +279,7 @@ let dispatch_read t fd cs =
                                if read_bytes = 0 then
                                        cs.callbacks.shutdown_callback t fd
                                else begin
-                                       debug "<- %s" (String.sub buf 0 read_bytes);
+                                       dbg "<- %s" (String.sub buf 0 read_bytes);
                                        cs.callbacks.recv_callback t fd buf 0 read_bytes
                                end
                        with
@@ -298,7 +298,7 @@ let do_send t fd cs =
                (match Unix.write fd payload 0 payload_len with
                 | 0 -> ()
                 | sent ->
-                       debug "-> %s" (String.sub payload 0 sent);
+                       dbg "-> %s" (String.sub payload 0 sent);
                        Buffer.clear cs.send_buf;
                        Buffer.add_substring cs.send_buf payload sent (payload_len - sent)
                )