twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-07-26 09:41:53 -07:00
Code Issues Packages Projects Releases Wiki Activity

simplify code in StackSet.

Browse Source
This commit is contained in:
David Roundy
2007-08-14 01:04:22 +00:00
parent ec0995a3a6
commit df4c18a181
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
StackSet.hs
View File

@@ -226,7 +226,7 @@ new _ _ = abort "non-positive argument to StackSet.new"
view :: (Eq a, Eq s, Eq i) => i -> StackSet i a s sd -> StackSet i a s sd
view i s
| not (elem i $ map tag $ workspaces s)
| not (i `tagMember` s)
|| i == tag (workspace (current s)) = s -- out of bounds or current
| Just x <- L.find ((i==).tag.workspace) (visible s)