make square work with new doLayout.

darcs-hash:20070612133009-72aca-a2c3c4885265649bb70a134b18ff8f478ea79dba.gz

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