aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorBrent Yorgey <byorgey@gmail.com>2008-03-11 22:29:08 +0100
committerBrent Yorgey <byorgey@gmail.com>2008-03-11 22:29:08 +0100
commitb635ed12aa032cbbdd4d4081b1b844bb071a0527 (patch)
treebcf04ae5332ead2e15dde261545042802b5a11ff
parent18b1df2187dadbe60ebd4bf43d54fe4397094422 (diff)
downloadXMonadContrib-b635ed12aa032cbbdd4d4081b1b844bb071a0527.tar.gz
XMonadContrib-b635ed12aa032cbbdd4d4081b1b844bb071a0527.tar.xz
XMonadContrib-b635ed12aa032cbbdd4d4081b1b844bb071a0527.zip
ScratchWorkspace: update to work with runLayout changes
darcs-hash:20080311212908-bd4d7-29f341750e72d8735ed4e056c90ab002e436064e.gz
-rw-r--r--XMonad/Layout/ScratchWorkspace.hs2
1 files changed, 1 insertions, 1 deletions
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)