aboutsummaryrefslogtreecommitdiffstats
path: root/StackSet.hs
diff options
context:
space:
mode:
authorDon Stewart <dons@galois.com>2007-09-18 01:46:58 +0200
committerDon Stewart <dons@galois.com>2007-09-18 01:46:58 +0200
commitefb3c70fd93d6857f049b395744863c736ca516f (patch)
tree090721c365d7fa0c4cdb5015476b6613d3591c2c /StackSet.hs
parent0b94446ad3b240bf8b82a7296b7c88777a40865f (diff)
downloadxmonad-efb3c70fd93d6857f049b395744863c736ca516f.tar.gz
xmonad-efb3c70fd93d6857f049b395744863c736ca516f.tar.xz
xmonad-efb3c70fd93d6857f049b395744863c736ca516f.zip
fmt, and tiny comment seeking clarification
darcs-hash:20070917234658-cba2c-0087d1300b47092d946f68e9525225dbca1fe45a.gz
Diffstat (limited to 'StackSet.hs')
-rw-r--r--StackSet.hs5
1 files changed, 3 insertions, 2 deletions
diff --git a/StackSet.hs b/StackSet.hs
index a2f4b31..9a62bb5 100644
--- a/StackSet.hs
+++ b/StackSet.hs
@@ -503,11 +503,12 @@ 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
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 n w s | from == Nothing = s
| n `tagMember` s && (Just n) /= from = go
| otherwise = s
- where go = on n (insertUp w) . on (fromJust from) (delete' w) $ s
+ where go = on n (insertUp w) . on (fromJust from) (delete' w) $ s
curtag = tag (workspace (current s))
- from = findIndex w s
+ from = findIndex w s
on i f = view curtag . f . view i