From bc8507f96309aa3a3b8812e9d0badc3f924f54d5 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sat, 18 Jan 2020 13:05:48 +0100
Subject: Remove duplicate definition of uniq

---
 src/Storage/Merge.hs | 7 +------
 1 file changed, 1 insertion(+), 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
-- 
cgit v1.2.3