summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-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