diff options
author | Don Stewart <dons@cse.unsw.edu.au> | 2007-03-09 10:10:45 +0100 |
---|---|---|
committer | Don Stewart <dons@cse.unsw.edu.au> | 2007-03-09 10:10:45 +0100 |
commit | 328ea55d77b527dff41397ac575cb0d82594036f (patch) | |
tree | 2ef9ef969215e3ad54df1cf5d256071386475e19 /StackSet.hs | |
parent | 17b64a742a9d1bc02490bd48681e7accb24ce185 (diff) | |
download | xmonad-328ea55d77b527dff41397ac575cb0d82594036f.tar.gz xmonad-328ea55d77b527dff41397ac575cb0d82594036f.tar.xz xmonad-328ea55d77b527dff41397ac575cb0d82594036f.zip |
unnec. `nub'
darcs-hash:20070309091045-9c5c1-4806d3d42d32c61490dc47ed6bc6af44c135b380.gz
Diffstat (limited to 'StackSet.hs')
-rw-r--r-- | StackSet.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/StackSet.hs b/StackSet.hs index 150eb9f..9cb7cdb 100644 --- a/StackSet.hs +++ b/StackSet.hs @@ -45,7 +45,7 @@ module StackSet ( ) where import Data.Maybe -import qualified Data.List as L (nub,delete) +import qualified Data.List as L (delete) import qualified Data.Map as M ------------------------------------------------------------------------ @@ -158,7 +158,7 @@ shift n w = maybe w (\k -> insert k n (delete k w)) (peek w) -- insert :: Ord a => a -> Int -> StackSet a -> StackSet a insert k n old = new { cache = M.insert k n (cache new) - , stacks = M.adjust (L.nub . (k:)) n (stacks new) } + , stacks = M.adjust (k:) n (stacks new) } where new = delete k old -- | /O(log n)/. Delete an element entirely from from the StackSet. |