summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--Main.hs4
1 files changed, 1 insertions, 3 deletions
diff --git a/Main.hs b/Main.hs
index 359278b..c2124e9 100644
--- a/Main.hs
+++ b/Main.hs
@@ -172,8 +172,6 @@ handle e@(ConfigureRequestEvent {}) = withDisplay $ \dpy -> do
io $ sync dpy False
-- the root may have configured
-handle e@(ConfigureEvent {ev_window = w}) = do
- r <- asks theRoot
- when (r == w) rescreen
+handle (ConfigureEvent {ev_window = w}) = whenX (isRoot w) rescreen
handle _ = return () -- trace (eventName e) -- ignoring