voidlizard
/
hbs2
mirror of https://github.com/voidlizard/hbs2
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

wip, export checkpoints

This commit is contained in:
voidlizard 2025-01-15 08:24:29 +03:00
parent be512971d6
commit 2349ec4157
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
hbs2-git3/lib/HBS2/Git3/State/Index.hs
View File

@ -17,6 +17,7 @@ import Data.Heap (Entry(..))
import Data.Heap qualified as Heap import Data.Heap qualified as Heap
import Data.ByteString.Lazy qualified as LBS import Data.ByteString.Lazy qualified as LBS
import Data.Fixed import Data.Fixed
import Data.Either
import Data.Maybe import Data.Maybe
import Data.HashMap.Strict (HashMap) import Data.HashMap.Strict (HashMap)
import Data.HashMap.Strict qualified as HM import Data.HashMap.Strict qualified as HM
@ -340,8 +341,12 @@ updateReflogIndex = do
lbs <- liftIO (runExceptT (getTreeContents sto href)) lbs <- liftIO (runExceptT (getTreeContents sto href))
>>= orThrow MissedBlockError >>= orThrow MissedBlockError
pieces <- S.toList_ do -- ignoring broken txs
void $ runConsumeLBS (ZstdL.decompress lbs) $ readLogFileLBS () $ \o s _ -> do unzstd <- liftIO (try @_ @SomeException (pure $ ZstdL.decompress lbs)
<&> fromRight mempty )
pieces <- S.toList_ $ do
void $ runConsumeLBS unzstd $ readLogFileLBS () $ \o _ _ -> do
lift $ S.yield o lift $ S.yield o
lift $ S.yield (h, pieces) lift $ S.yield (h, pieces)