aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDavid Roundy <droundy@darcs.net>2007-06-12 15:30:09 +0200
committerDavid Roundy <droundy@darcs.net>2007-06-12 15:30:09 +0200
commitc17644cd3b46eeddef2d7f0a4098c2237d891544 (patch)
treee2f2e0bdba050e5489580758b61a1f22fcd5b3b8
parentafafb63be2191e680e19930e483dfefae9337cfc (diff)
downloadXMonadContrib-c17644cd3b46eeddef2d7f0a4098c2237d891544.tar.gz
XMonadContrib-c17644cd3b46eeddef2d7f0a4098c2237d891544.tar.xz
XMonadContrib-c17644cd3b46eeddef2d7f0a4098c2237d891544.zip
make square work with new doLayout.
darcs-hash:20070612133009-72aca-a2c3c4885265649bb70a134b18ff8f478ea79dba.gz
-rw-r--r--Square.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/Square.hs b/Square.hs
index 51519b7..0cd5a3c 100644
--- a/Square.hs
+++ b/Square.hs
@@ -13,9 +13,10 @@ module XMonadContrib.Square ( square ) where
import XMonad
import Graphics.X11.Xlib
+import StackSet ( integrate )
square :: Layout
-square = Layout { doLayout = arrange, modifyLayout = message }
+square = Layout { doLayout = \r s -> arrange r (integrate s), modifyLayout = message }
where
arrange rect ws@(_:_) = do
let (rest, sq) = splitSquare rect