diff options
| -rw-r--r-- | src/Storage/Merge.hs | 7 |
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 |