refactor using whenX

darcs-hash:20070522043116-9c5c1-034fa6854b4ad99316fcc0f85904bec62ef1549b

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