From a603848f85c3645c7115a56b195eae42d9b797fc Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Mon, 21 May 2007 17:27:59 +0200
Subject: Make screen info dynamic: first step to supporting randr

darcs-hash:20070521152759-a5988-736e7caea5252a77bb01d7631cce0db4287ff6f2.gz
---
 Operations.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'Operations.hs')

diff --git a/Operations.hs b/Operations.hs
index 37dbafe..c438528 100644
--- a/Operations.hs
+++ b/Operations.hs
@@ -100,7 +100,7 @@ windows f = modify (\s -> s { windowset = f (windowset s) }) >> refresh
 -- | hide. Hide a window by moving it off screen.
 hide :: Window -> X ()
 hide w = withDisplay $ \d -> do
-    (sw,sh) <- asks dimensions
+    (sw,sh) <- gets dimensions
     io $ moveWindow d w (2*fromIntegral sw) (2*fromIntegral sh)
 
 -- | refresh. Render the currently visible workspaces, as determined by
@@ -111,8 +111,8 @@ hide w = withDisplay $ \d -> do
 --
 refresh :: X ()
 refresh = do
-    XState { windowset = ws, layouts = fls }     <- get
-    XConf  { xineScreens = xinesc, display = d } <- ask
+    XState { windowset = ws, layouts = fls, xineScreens = xinesc } <- get
+    d <- asks display
 
     -- for each workspace, layout the currently visible workspaces
     (`mapM_` (W.current ws : W.visible ws)) $ \w -> do
-- 
cgit v1.2.3