summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDon Stewart <dons@cse.unsw.edu.au>2007-05-22 06:31:16 +0200
committerDon Stewart <dons@cse.unsw.edu.au>2007-05-22 06:31:16 +0200
commita4b510151ed03652f7ac745e666d6df21f635942 (patch)
tree8c044559ece9e48382ef9ee1c830cf2a6ff7e860
parent41e31ab4d887405815b9e3cfed7431b3d52b3024 (diff)
downloadmetatile-a4b510151ed03652f7ac745e666d6df21f635942.tar
metatile-a4b510151ed03652f7ac745e666d6df21f635942.zip
refactor using whenX
darcs-hash:20070522043116-9c5c1-034fa6854b4ad99316fcc0f85904bec62ef1549b
-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