Remove duplicate definition of uniq

1 files changed, 1 insertions, 6 deletions

diff --git a/src/Storage/Merge.hs b/src/Storage/Merge.hs
index 74b88d7..17b02aa 100644
--- a/src/Storage/Merge.hs
+++ b/src/Storage/Merge.hs
@@ -1,7 +1,6 @@
 module Storage.Merge (
     Mergeable(..),
     merge, storeMerge,
-    uniq,
 
     generations,
     ancestors,
@@ -17,6 +16,7 @@ import qualified Data.Set as S
 
 import Storage
 import Storage.Internal
+import Util
 
 class Storable a => Mergeable a where
     mergeSorted :: [Stored a] -> a
@@ -31,11 +31,6 @@ storeMerge [] = error "merge: empty list"
 storeMerge [x] = return x
 storeMerge xs@(Stored ref _ : _) = wrappedStore (refStorage ref) $ mergeSorted $ filterAncestors xs
 
-uniq :: Eq a => [a] -> [a]
-uniq (x:x':xs) | x == x'   = uniq (x:xs)
-               | otherwise = x : uniq (x':xs)
-uniq xs = xs
-
 previous :: Storable a => Stored a -> [Stored a]
 previous (Stored ref _) = case load ref of
     Rec items | Just (RecRef dref) <- lookup (BC.pack "SDATA") items