diff options
| author | Don Stewart <dons@galois.com> | 2008-03-07 19:16:34 +0100 |
|---|---|---|
| committer | Don Stewart <dons@galois.com> | 2008-03-07 19:16:34 +0100 |
| commit | dbbaa5b7b5de2a0d774493731be6ce1f6a398f98 (patch) | |
| tree | ef5faff4f08cac84c292696d91f571417d92a756 /XMonad | |
| parent | f7234ee877eecbea7a3cfe1c9f6ecfe7c68b5ef7 (diff) | |
| download | metatile-dbbaa5b7b5de2a0d774493731be6ce1f6a398f98.tar metatile-dbbaa5b7b5de2a0d774493731be6ce1f6a398f98.zip | |
rework failure cases in StackSet.view
darcs-hash:20080307181634-cba2c-66088abef9a3e448dd6043cf4aefa4eb275c5a44
Diffstat (limited to 'XMonad')
| -rw-r--r-- | XMonad/StackSet.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/XMonad/StackSet.hs b/XMonad/StackSet.hs index d9e7e6b..20cafe2 100644 --- a/XMonad/StackSet.hs +++ b/XMonad/StackSet.hs @@ -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 |