From 8bedb2cf6c324941a86e531c803b6263c150b1a2 Mon Sep 17 00:00:00 2001 From: Dmitry Zuikov Date: Thu, 6 Jun 2024 13:23:08 +0300 Subject: [PATCH] wip --- fixme-new/lib/Fixme/Scan/Git/Local.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/fixme-new/lib/Fixme/Scan/Git/Local.hs b/fixme-new/lib/Fixme/Scan/Git/Local.hs index 0afa1f8a..6d4d92c5 100644 --- a/fixme-new/lib/Fixme/Scan/Git/Local.hs +++ b/fixme-new/lib/Fixme/Scan/Git/Local.hs @@ -190,11 +190,14 @@ scanGitLogLocal refMask play = do liftIO (LBS8.writeFile tmp blob) 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 sto <- either (const $ shit ()) pure esto lift $ lift $ loadAllEntriesFromLog sto >>= play - lift $ insertProcessed (ViaSerialise commitHash) compactStorageClose sto