diff options
author | Spencer Janssen <sjanssen@cse.unl.edu> | 2008-03-30 00:07:37 +0100 |
---|---|---|
committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2008-03-30 00:07:37 +0100 |
commit | 5079300ce6231b475dfd1fc9b431c3bdc0cd895e (patch) | |
tree | 95e044609f3bf22f2b0298646390c596f2d217c6 /XMonad/Layout/ScratchWorkspace.hs | |
parent | d471ba7248bc6d97b4271e3a7430372a0c442221 (diff) | |
download | XMonadContrib-5079300ce6231b475dfd1fc9b431c3bdc0cd895e.tar.gz XMonadContrib-5079300ce6231b475dfd1fc9b431c3bdc0cd895e.tar.xz XMonadContrib-5079300ce6231b475dfd1fc9b431c3bdc0cd895e.zip |
Remove stale status gaps code
darcs-hash:20080329230737-a5988-00c8ef14160f79347f4e40c12b2c84a9519b4d1a.gz
Diffstat (limited to '')
-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 aea473e..56febeb 100644 --- a/XMonad/Layout/ScratchWorkspace.hs +++ b/XMonad/Layout/ScratchWorkspace.hs @@ -41,7 +41,7 @@ toggleScratchWorkspace l = then -- we don't yet have a scratch screen! if scratchName `W.tagMember` s then return () -- We'll just bail out of scratchName already exists... - else do let scratchscreen = W.Screen scratch (-1) (SD hiddenRect (0,0,0,0)) + else do let scratchscreen = W.Screen scratch (-1) (SD hiddenRect) scratch = W.Workspace scratchName defaultl Nothing s' = s { W.visible = scratchscreen: W.visible s } modify $ \st -> st { windowset = s' } |