From b8a5c2af010b4ed3a970102a4e68ae2f93043f6d Mon Sep 17 00:00:00 2001
From: David Roundy <droundy@darcs.net>
Date: Sun, 10 Jun 2007 03:22:37 +0200
Subject: implement Spencer's decoration suggestion.

darcs-hash:20070610012237-72aca-4c5873773e58103f57f7a0b232da58c269248fa7
---
 Main.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'Main.hs')

diff --git a/Main.hs b/Main.hs
index 24e88ee..c17e741 100644
--- a/Main.hs
+++ b/Main.hs
@@ -224,4 +224,6 @@ handle e@(ConfigureRequestEvent {ev_window = w}) = withDisplay $ \dpy -> do
 -- the root may have configured
 handle (ConfigureEvent {ev_window = w}) = whenX (isRoot w) rescreen
 
-handle _ = return () -- trace (eventName e) -- ignoring
+handle e = sendMessage e -- trace (eventName e) -- ignoring
+
+instance Message Event
-- 
cgit v1.2.3