diff --git a/ogui.ml b/ogui.ml
index dbfffdd..a23df7b 100644
--- a/ogui.ml
+++ b/ogui.ml
@@ -616,9 +616,9 @@ module Ui = struct
       | None -> Event.resolver [ Event.pack Fun.id t.bindings ]
     in
 
-    Event.(
+    (*Event.(
       F.epr "Ui.keycallback %a %a %a@." pp_key key pp_key_action state
-        pp_mods mods);
+        pp_mods mods); *)
     match Event.resolve (Key (state, key, mods)) res with
     | Event.Accepted actions ->
         callback_resolver := None;
@@ -639,8 +639,8 @@ module Ui = struct
     ui.bindings <- f ui.bindings
 
   let chrcallback_ref : (Uchar.t -> unit Lwt.t) ref =
-    ref (fun c ->
-        F.epr "chrcallback: '%a'@." pp_uchar c;
+    ref (fun _c ->
+        (* F.epr "chrcallback: '%a'@." pp_uchar _c; *)
         Lwt.return_unit)
 
   let chrcallback _t (chr : int) : unit Lwt.t =