diff options
author | Don Stewart <dons@cse.unsw.edu.au> | 2007-05-22 06:31:16 +0200 |
---|---|---|
committer | Don Stewart <dons@cse.unsw.edu.au> | 2007-05-22 06:31:16 +0200 |
commit | 17d69d99dcc9f8a807b63d8a25ae8f2f949ba9cb (patch) | |
tree | 8c044559ece9e48382ef9ee1c830cf2a6ff7e860 /Main.hs | |
parent | 395b934efb901fa5bdca4046e047b9592e9771ce (diff) | |
download | xmonad-17d69d99dcc9f8a807b63d8a25ae8f2f949ba9cb.tar.gz xmonad-17d69d99dcc9f8a807b63d8a25ae8f2f949ba9cb.tar.xz xmonad-17d69d99dcc9f8a807b63d8a25ae8f2f949ba9cb.zip |
refactor using whenX
darcs-hash:20070522043116-9c5c1-034fa6854b4ad99316fcc0f85904bec62ef1549b.gz
Diffstat (limited to '')
-rw-r--r-- | Main.hs | 4 |
1 files changed, 1 insertions, 3 deletions
@@ -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 |