aboutsummaryrefslogtreecommitdiffstats
path: root/Main.hs
diff options
context:
space:
mode:
authorSpencer Janssen <sjanssen@cse.unl.edu>2007-06-03 23:20:55 +0200
committerSpencer Janssen <sjanssen@cse.unl.edu>2007-06-03 23:20:55 +0200
commit51a1ff8c4b23789d0507e770a814521e07158c5e (patch)
treedddac194395b70ff5ba1e2fd3c40c49db746185c /Main.hs
parentfed0b6d56eeb2e68447f1b3a6d5bebd742463291 (diff)
downloadxmonad-51a1ff8c4b23789d0507e770a814521e07158c5e.tar.gz
xmonad-51a1ff8c4b23789d0507e770a814521e07158c5e.tar.xz
xmonad-51a1ff8c4b23789d0507e770a814521e07158c5e.zip
-Wall police
darcs-hash:20070603212055-a5988-154f62e30303e2ab406201d08318d070a914baa3.gz
Diffstat (limited to 'Main.hs')
-rw-r--r--Main.hs7
1 files changed, 3 insertions, 4 deletions
diff --git a/Main.hs b/Main.hs
index 467c630..44b9a2d 100644
--- a/Main.hs
+++ b/Main.hs
@@ -183,11 +183,10 @@ handle e@(CrossingEvent {ev_event_type = t})
-- configure a window
handle e@(ConfigureRequestEvent {ev_window = w}) = withDisplay $ \dpy -> do
- floating <- gets $ M.member w . floating . windowset
- rootw <- asks theRoot
- wa <- io $ getWindowAttributes dpy w
+ f <- gets $ M.member w . floating . windowset
+ wa <- io $ getWindowAttributes dpy w
- if floating
+ if f
then do io $ configureWindow dpy w (ev_value_mask e) $ WindowChanges
{ wc_x = ev_x e
, wc_y = ev_y e