aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-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