From 967cb4587c1af9fb53bfd1a30d007877d16e03fa Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sat, 7 Oct 2023 21:56:36 +0200
Subject: Storage: handle BASE/SBASE references as parents

---
 src/Storage/Merge.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Storage/Merge.hs b/src/Storage/Merge.hs
index 02b29f7..7c6992f 100644
--- a/src/Storage/Merge.hs
+++ b/src/Storage/Merge.hs
@@ -57,11 +57,11 @@ previous (Stored ref _) = case load ref of
     Rec items | Just (RecRef dref) <- lookup (BC.pack "SDATA") items
               , Rec ditems <- load dref ->
                     map wrappedLoad $ catMaybes $ map (\case RecRef r -> Just r; _ -> Nothing) $
-                        map snd $ filter ((== BC.pack "SPREV") . fst) ditems
+                        map snd $ filter ((`elem` [ BC.pack "SPREV", BC.pack "SBASE" ]) . fst) ditems
 
               | otherwise ->
                     map wrappedLoad $ catMaybes $ map (\case RecRef r -> Just r; _ -> Nothing) $
-                        map snd $ filter ((== BC.pack "PREV") . fst) items
+                        map snd $ filter ((`elem` [ BC.pack "PREV", BC.pack "BASE" ]) . fst) items
     _ -> []
 
 
-- 
cgit v1.2.3