From a4b510151ed03652f7ac745e666d6df21f635942 Mon Sep 17 00:00:00 2001
From: Don Stewart <dons@cse.unsw.edu.au>
Date: Tue, 22 May 2007 06:31:16 +0200
Subject: refactor using whenX

darcs-hash:20070522043116-9c5c1-034fa6854b4ad99316fcc0f85904bec62ef1549b
---
 Main.hs | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

(limited to 'Main.hs')

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
-- 
cgit v1.2.3