summaryrefslogtreecommitdiff
path: root/src/Storage
diff options
context:
space:
mode:
Diffstat (limited to 'src/Storage')
-rw-r--r--src/Storage/Merge.hs7
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