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

wip

This commit is contained in:
Dmitry Zuikov 2024-06-06 13:23:08 +03:00
parent 6fd1d2479a
commit 8bedb2cf6c
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
fixme-new/lib/Fixme/Scan/Git/Local.hs
View File

@ -190,11 +190,14 @@ scanGitLogLocal refMask play = do
liftIO (LBS8.writeFile tmp blob) liftIO (LBS8.writeFile tmp blob)
esto <- lift $ try @_ @CompactStorageOpenError $ compactStorageOpen @HbSync readonly tmp esto <- lift $ try @_ @CompactStorageOpenError $ compactStorageOpen @HbSync readonly tmp
-- skip even problematic commit
lift $ insertProcessed (ViaSerialise commitHash)
either (const $ warn $ "skip malformed/unknown log" <+> pretty h) (const none) esto either (const $ warn $ "skip malformed/unknown log" <+> pretty h) (const none) esto
sto <- either (const $ shit ()) pure esto sto <- either (const $ shit ()) pure esto
lift $ lift $ loadAllEntriesFromLog sto >>= play lift $ lift $ loadAllEntriesFromLog sto >>= play
lift $ insertProcessed (ViaSerialise commitHash)
compactStorageClose sto compactStorageClose sto