From 6c92eaa391732f083be0cd0f3eff7972d00ec4d0 Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Tue, 20 Mar 2007 06:11:24 +0100
Subject: Decouple the concepts of focus and window order.  First step to
 tiling!

darcs-hash:20070320051124-a5988-5127c4860ce23d6eb569f6145cd592fe26689061
---
 Main.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Main.hs')

diff --git a/Main.hs b/Main.hs
index a877728..a63c8ef 100644
--- a/Main.hs
+++ b/Main.hs
@@ -225,7 +225,7 @@ refresh = do
     ws2sc <- gets wsOnScreen
     xinesc <- gets xineScreens
     forM_ (M.assocs ws2sc) $ \(n, scn) -> 
-	whenJust (listToMaybe $ W.index n ws) $ \w -> withDisplay $ \d -> do
+	whenJust (W.peekStack n ws) $ \w -> withDisplay $ \d -> do
 	    let sc = xinesc !! scn
 	    io $ do moveResizeWindow d w (fromIntegral $ xsi_x_org sc) 
 					 (fromIntegral $ xsi_y_org sc)
-- 
cgit v1.2.3