diff options
| author | Brent Yorgey <byorgey@gmail.com> | 2008-03-11 22:29:08 +0100 |
|---|---|---|
| committer | Brent Yorgey <byorgey@gmail.com> | 2008-03-11 22:29:08 +0100 |
| commit | b635ed12aa032cbbdd4d4081b1b844bb071a0527 (patch) | |
| tree | bcf04ae5332ead2e15dde261545042802b5a11ff /XMonad/Layout/ScratchWorkspace.hs | |
| parent | 18b1df2187dadbe60ebd4bf43d54fe4397094422 (diff) | |
| download | XMonadContrib-b635ed12aa032cbbdd4d4081b1b844bb071a0527.tar.gz XMonadContrib-b635ed12aa032cbbdd4d4081b1b844bb071a0527.tar.xz XMonadContrib-b635ed12aa032cbbdd4d4081b1b844bb071a0527.zip | |
ScratchWorkspace: update to work with runLayout changes
darcs-hash:20080311212908-bd4d7-29f341750e72d8735ed4e056c90ab002e436064e.gz
Diffstat (limited to 'XMonad/Layout/ScratchWorkspace.hs')
| -rw-r--r-- | XMonad/Layout/ScratchWorkspace.hs | 2 |
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) |