twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-08-03 13:41:54 -07:00
Code Issues Packages Projects Releases Wiki Activity

unnec. `nub'

Browse Source
This commit is contained in:
Don Stewart
2007-03-09 09:10:45 +00:00
parent 6386569f9b
commit faab935ced
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
StackSet.hs
View File

@@ -45,7 +45,7 @@ module StackSet (
) where ) where
import Data.Maybe import Data.Maybe
import qualified Data.List as L (nub,delete) import qualified Data.List as L (delete)
import qualified Data.Map as M 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 :: Ord a => a -> Int -> StackSet a -> StackSet a
insert k n old = new { cache = M.insert k n (cache new) 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 where new = delete k old
-- | /O(log n)/. Delete an element entirely from from the StackSet. -- | /O(log n)/. Delete an element entirely from from the StackSet.