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

fmt, and tiny comment seeking clarification

Browse Source
This commit is contained in:
Don Stewart
2007-09-17 23:46:58 +00:00
parent c6f346f887
commit 3060c36d00
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
StackSet.hs
View File

@@ -503,6 +503,7 @@ shift n s | n `tagMember` s && n /= curtag = maybe s go (peek 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))
-- TODO how does this duplicate 'shift's behaviour?
shiftWin :: (Ord a, Eq a, Eq s, Eq i) => i -> a -> StackSet i a s sd -> StackSet i a s sd shiftWin :: (Ord a, Eq a, Eq s, Eq i) => i -> a -> StackSet i a s sd -> StackSet i a s sd
shiftWin n w s | from == Nothing = s shiftWin n w s | from == Nothing = s
| n `tagMember` s && (Just n) /= from = go | n `tagMember` s && (Just n) /= from = go