summaryrefslogtreecommitdiffstats
path: root/Main.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Main.hs')
-rw-r--r--Main.hs4
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