Print a message for unhandled events

darcs-hash:20070308013249-a5988-15210f7f0dfdc4ef75c2df119f140971b4c75c36.gz

1 files changed, 1 insertions, 1 deletions

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