-Wall police

darcs-hash:20070603212055-a5988-154f62e30303e2ab406201d08318d070a914baa3

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