From b635ed12aa032cbbdd4d4081b1b844bb071a0527 Mon Sep 17 00:00:00 2001 From: Brent Yorgey Date: Tue, 11 Mar 2008 22:29:08 +0100 Subject: ScratchWorkspace: update to work with runLayout changes darcs-hash:20080311212908-bd4d7-29f341750e72d8735ed4e056c90ab002e436064e.gz --- XMonad/Layout/ScratchWorkspace.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'XMonad/Layout/ScratchWorkspace.hs') diff --git a/XMonad/Layout/ScratchWorkspace.hs b/XMonad/Layout/ScratchWorkspace.hs index 035962d..aea473e 100644 --- a/XMonad/Layout/ScratchWorkspace.hs +++ b/XMonad/Layout/ScratchWorkspace.hs @@ -56,7 +56,7 @@ toggleScratchWorkspace l = if screenRect (W.screenDetail scratchscreen) == hiddenRect then -- we're hidden now, so let's display ourselves do let r = screenRect $ W.screenDetail c - (rs,_) <- doLayout l r (W.Stack 0 [1] []) + (rs,_) <- runLayout (W.Workspace "" l (Just $ W.Stack 0 [1] [])) r let (r0, r1) = case rs of [(0,ra),(1,rb)] -> (ra,rb) [(1,ra),(0,rb)] -> (rb,ra) -- cgit v1.2.3