diff options
| author | Don Stewart <dons@galois.com> | 2007-09-18 01:46:58 +0200 |
|---|---|---|
| committer | Don Stewart <dons@galois.com> | 2007-09-18 01:46:58 +0200 |
| commit | 620ea3900da9415e53be43ac842cbec8bb3768cd (patch) | |
| tree | 090721c365d7fa0c4cdb5015476b6613d3591c2c | |
| parent | 60cf63e380ed5e9001170ddd985ade799ef4e844 (diff) | |
| download | metatile-620ea3900da9415e53be43ac842cbec8bb3768cd.tar metatile-620ea3900da9415e53be43ac842cbec8bb3768cd.zip | |
fmt, and tiny comment seeking clarification
darcs-hash:20070917234658-cba2c-0087d1300b47092d946f68e9525225dbca1fe45a
| -rw-r--r-- | StackSet.hs | 5 |
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 |