twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-09-01 19:33:46 -07:00
Code Issues Packages Projects Releases Wiki Activity

rework failure cases in StackSet.view

Browse Source
This commit is contained in:
Don Stewart
2008-03-07 18:16:34 +00:00
parent d5955b023c
commit a8d3564653
1 changed files with 2 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
XMonad/StackSet.hs
View File

@@ -210,8 +210,7 @@ new _ _ _ = abort "non-positive argument to StackSet.new"
view :: (Eq s, Eq i) => i -> StackSet i l a s sd -> StackSet i l a s sd
view i s
| not (i `tagMember` s)
|| i == tag (workspace (current s)) = s -- out of bounds or current
| i == tag (workspace (current s)) = s -- current
| Just x <- L.find ((i==).tag.workspace) (visible s)
-- if it is visible, it is just raised
@@ -222,7 +221,7 @@ view i s
= s { current = (current s) { workspace = x }
, hidden = workspace (current s) : L.deleteBy (equating tag) x (hidden s) }
| otherwise = s -- can't happen: all workspaces are either invalid, current, visible, or hidden
| otherwise = s -- not a member of the stackset
where equating f = \x y -> f x == f y