diff options
| author | Don Stewart <dons@cse.unsw.edu.au> | 2007-04-30 05:11:51 +0200 |
|---|---|---|
| committer | Don Stewart <dons@cse.unsw.edu.au> | 2007-04-30 05:11:51 +0200 |
| commit | bb906ca3966cc0bf4211c2b3720df489492b5bf9 (patch) | |
| tree | 07d3152622b091660c2158833e6164eb6e718165 | |
| parent | 15bf543b1e4ef2fd5cec79ff7aa8d93f931e8f4a (diff) | |
| download | xmonad-bb906ca3966cc0bf4211c2b3720df489492b5bf9.tar.gz xmonad-bb906ca3966cc0bf4211c2b3720df489492b5bf9.tar.xz xmonad-bb906ca3966cc0bf4211c2b3720df489492b5bf9.zip | |
remove redundant call to 'delete' in 'shift'
darcs-hash:20070430031151-9c5c1-7d66b13bc36af0e33af655f33ef287c8d4a379e7.gz
Diffstat (limited to '')
| -rw-r--r-- | StackSet.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/StackSet.hs b/StackSet.hs index f21306f..b455315 100644 --- a/StackSet.hs +++ b/StackSet.hs @@ -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. |