From 328ea55d77b527dff41397ac575cb0d82594036f Mon Sep 17 00:00:00 2001
From: Don Stewart <dons@cse.unsw.edu.au>
Date: Fri, 9 Mar 2007 10:10:45 +0100
Subject: unnec. `nub'

darcs-hash:20070309091045-9c5c1-4806d3d42d32c61490dc47ed6bc6af44c135b380.gz
---
 StackSet.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'StackSet.hs')

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.
-- 
cgit v1.2.3