diff --git a/Main.hs b/Main.hs
index 8a4bbd4..f34cd72 100644
--- a/Main.hs
+++ b/Main.hs
@@ -124,7 +124,7 @@ handle e@(ConfigureRequestEvent {}) = do
             }
     io $ sync dpy False
 
-handle _ = return ()
+handle e = trace (eventName e) -- return ()
 
 -- ---------------------------------------------------------------------
 -- Managing windows