twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-08-06 15:11:53 -07:00
Code Issues Packages Projects Releases Wiki Activity

shift: use guards instead of if

Browse Source
This commit is contained in:
Spencer Janssen
2007-07-24 15:23:40 +00:00
parent cc3527a975
commit bf4388e3aa
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
StackSet.hs
View File

@@ -474,7 +474,7 @@ swapMaster = modify' $ \c -> case c of
-- element on the current stack, the original stackSet is returned. -- element on the current stack, the original stackSet is returned.
-- --
shift :: (Ord a, Eq s, Eq i) => i -> StackSet i a s sd -> StackSet i a s sd shift :: (Ord a, Eq s, Eq i) => i -> StackSet i a s sd -> StackSet i a s sd
shift n s = if n `tagMember` s && n /= curtag shift n s | n `tagMember` s && n /= curtag = maybe s go (peek s)
then maybe s go (peek s) else s | otherwise = s
where go w = view curtag . insertUp w . view n . delete w $ s where go w = view curtag . insertUp w . view n . delete w $ s
curtag = tag (workspace (current s)) curtag = tag (workspace (current s))