From 9224a2c418b737f65a8d7259f5a7a787e9f00b59 Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Thu, 8 Mar 2007 02:32:49 +0100
Subject: Print a message for unhandled events

darcs-hash:20070308013249-a5988-15210f7f0dfdc4ef75c2df119f140971b4c75c36.gz
---
 Main.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Main.hs')

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
-- 
cgit v1.2.3