twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-08-31 02:43:47 -07:00
Code Issues Packages Projects Releases Wiki Activity

remove redundant call to 'delete' in 'shift'

Browse Source
This commit is contained in:
Don Stewart
2007-04-30 03:11:51 +00:00
parent 8265cae8a8
commit df7d1d95fa
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

@@ -152,7 +152,7 @@ rotate o w = maybe w id $ do
-- exception is thrown.
--
shift :: (Integral i, Ord a) => i -> StackSet i j a -> StackSet i j a
shift n w = maybe w (\k -> insert k n (delete k w)) (peek w)
shift n w = maybe w (\k -> insert k n w) (peek w)
-- | /O(log n)/. Insert an element onto the top of stack 'n'.
-- If the element is already in the stack 'n', it is moved to the top.