From c17644cd3b46eeddef2d7f0a4098c2237d891544 Mon Sep 17 00:00:00 2001 From: David Roundy Date: Tue, 12 Jun 2007 15:30:09 +0200 Subject: make square work with new doLayout. darcs-hash:20070612133009-72aca-a2c3c4885265649bb70a134b18ff8f478ea79dba.gz --- Square.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'Square.hs') 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 -- cgit v1.2.3