diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2025-06-14 15:22:03 +0200 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2025-06-14 15:46:30 +0200 |
| commit | a8b7cde0814481647d4d2b2aa2ee93a3b04a3251 (patch) | |
| tree | e184123ed73e118e395f1b76b9a6429778c57083 /src/Erebos/Storage/Merge.hs | |
| parent | 2e7a2aad5680eeabe2694de3b6637e4c8ce9a16c (diff) | |
Diffstat (limited to 'src/Erebos/Storage/Merge.hs')
| -rw-r--r-- | src/Erebos/Storage/Merge.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Erebos/Storage/Merge.hs b/src/Erebos/Storage/Merge.hs index 41725af..a41a65f 100644 --- a/src/Erebos/Storage/Merge.hs +++ b/src/Erebos/Storage/Merge.hs @@ -52,7 +52,7 @@ merge xs = mergeSorted $ filterAncestors xs storeMerge :: (Mergeable a, Storable a) => [Stored (Component a)] -> IO (Stored a) storeMerge [] = error "merge: empty list" -storeMerge xs@(Stored ref _ : _) = wrappedStore (refStorage ref) $ mergeSorted $ filterAncestors xs +storeMerge xs@(x : _) = wrappedStore (storedStorage x) $ mergeSorted $ filterAncestors xs previous :: Storable a => Stored a -> [Stored a] previous (Stored ref _) = case load ref of |