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:19:06 +03:00
parent 06f46c768a
commit 6fd1d2479a
2 changed files with 14 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -183,15 +183,20 @@ scanGitLogLocal refMask play = do
withState $ transactional do withState $ transactional do
flip runContT pure do flip runContT pure do
for_ logz $ \(commitHash, h) -> do for_ logz $ \(commitHash, h) -> callCC \shit -> do
warn $ blue "SCAN BLOB" <+> pretty h warn $ blue "SCAN BLOB" <+> pretty h
tmp <- ContT $ bracket (liftIO (emptySystemTempFile "fixme-log")) rm tmp <- ContT $ bracket (liftIO (emptySystemTempFile "fixme-log")) rm
blob <- lift $ lift $ gitCatBlob h blob <- lift $ lift $ gitCatBlob h
liftIO (LBS8.writeFile tmp blob) liftIO (LBS8.writeFile tmp blob)
sto <- ContT $ bracket (compactStorageOpen @HbSync readonly tmp) compactStorageClose
esto <- lift $ try @_ @CompactStorageOpenError $ compactStorageOpen @HbSync readonly tmp
either (const $ warn $ "skip malformed/unknown log" <+> pretty h) (const none) esto
sto <- either (const $ shit ()) pure esto
lift $ lift $ loadAllEntriesFromLog sto >>= play lift $ lift $ loadAllEntriesFromLog sto >>= play
lift $ insertProcessed (ViaSerialise commitHash) lift $ insertProcessed (ViaSerialise commitHash)
compactStorageClose sto
scanGitLocal :: FixmePerks m scanGitLocal :: FixmePerks m
=> [ScanGitArgs] => [ScanGitArgs]

1
hbs2-storage-simple/lib/HBS2/Storage/Compact.hs
View File

@ -3,6 +3,7 @@
{-# Language UndecidableInstances #-} {-# Language UndecidableInstances #-}
module HBS2.Storage.Compact module HBS2.Storage.Compact
( Storage(..) ( Storage(..)
, CompactStorageOpenError(..)
, CompactStorage , CompactStorage
, CompactStorageOpenOpt(..) , CompactStorageOpenOpt(..)
, readonly , readonly