From 2efd0286c28fa10ad32111339a2fad55634c481f Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Sun, 3 Jun 2007 23:20:55 +0200
Subject: -Wall police

darcs-hash:20070603212055-a5988-154f62e30303e2ab406201d08318d070a914baa3
---
 Main.hs | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

(limited to 'Main.hs')

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
-- 
cgit v1.2.3