summaryrefslogtreecommitdiffstats
path: root/Main.hs
diff options
context:
space:
mode:
authorSpencer Janssen <sjanssen@cse.unl.edu>2007-03-08 02:32:49 +0100
committerSpencer Janssen <sjanssen@cse.unl.edu>2007-03-08 02:32:49 +0100
commit89f461234505bd9082dd60e766bc7e4c7b913f01 (patch)
treefdbc5316351c5eec29cd9f177761471822f1570c /Main.hs
parent5197d8daa2028b6627c6e6ae2f7087dfd853e3e6 (diff)
downloadmetatile-89f461234505bd9082dd60e766bc7e4c7b913f01.tar
metatile-89f461234505bd9082dd60e766bc7e4c7b913f01.zip
Print a message for unhandled events
darcs-hash:20070308013249-a5988-15210f7f0dfdc4ef75c2df119f140971b4c75c36
Diffstat (limited to 'Main.hs')
-rw-r--r--Main.hs2
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