From 1af7582b30d70ded97db92a69673849372c98fb9 Mon Sep 17 00:00:00 2001
From: David Roundy <droundy@darcs.net>
Date: Tue, 12 Jun 2007 17:12:09 +0200
Subject: changes to work with Stacks that can't be empty.

darcs-hash:20070612151209-72aca-62307f8565fc32ca80be8daf2c30fe414d49111e.gz
---
 NoBorders.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'NoBorders.hs')

diff --git a/NoBorders.hs b/NoBorders.hs
index 1b8ae94..7d34cfe 100644
--- a/NoBorders.hs
+++ b/NoBorders.hs
@@ -32,5 +32,5 @@ withBorder bd l = l { doLayout = \r x -> setborders bd >> doLayout l r x
 
 setborders :: Dimension -> X ()
 setborders bw = withDisplay $ \d ->
-                do ws <- gets (W.integrate . W.stack . W.workspace . W.current . windowset)
+                do ws <- gets (W.integrate' . W.stack . W.workspace . W.current . windowset)
                    mapM_ (\w -> io $ setWindowBorderWidth d w bw) ws
-- 
cgit v1.2.3