implement Spencer's decoration suggestion.

darcs-hash:20070610012237-72aca-4c5873773e58103f57f7a0b232da58c269248fa7.gz

1 files changed, 3 insertions, 1 deletions

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