From efc3e3cfca71ed562004eea62b3e5678245daea4 Mon Sep 17 00:00:00 2001
From: Dmitry Zuikov <dzuikov@gmail.com>
Date: Mon, 3 Jun 2024 15:07:37 +0300
Subject: [PATCH] wip

---
 .fixme-new/log             | Bin 256 -> 397 bytes
 fixme-new/lib/Fixme/Run.hs |   7 +++++--
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/.fixme-new/log b/.fixme-new/log
index 76f5e7eb4ff544f3ee178f04a81bf95656df21d8..903edccf6b2a0bb12655705cc6d779e770dbf72a 100644
GIT binary patch
delta 149
zcmZo*>SbQQSkC|kjJeGWQfaXp=QlAlF+?bAx%qEF_B-P;FFn4;)1P?@b9G3+ORaEl
yoLZ8^UbZ)^mBFkHs7{iRqlrO6m*Go<x(jjo>Npq}p%y|Y20lhpAPXwU@BjdJ$1A7+

delta 6
NcmeBWZeUu#2ml7E0ki-B

diff --git a/fixme-new/lib/Fixme/Run.hs b/fixme-new/lib/Fixme/Run.hs
index 8e780177..5aa1bcb5 100644
--- a/fixme-new/lib/Fixme/Run.hs
+++ b/fixme-new/lib/Fixme/Run.hs
@@ -466,6 +466,9 @@ run what = do
           debug $ green $ pretty s
           updateFixme Nothing hash (fromString a) (fromString b)
 
+        ListVal [SymbolVal "deleted", TimeStampLike _, FixmeHashLike hash] -> do
+          deleteFixme hash
+
         ListVal [SymbolVal "deleted", FixmeHashLike hash] -> do
           deleteFixme hash
 
@@ -547,14 +550,14 @@ run what = do
                       <&> rights
 
 
-          compactStorageClose sto
-
           let top = show $ vcat (fmap pretty entries)
           let theLog = parseTop top & fromRight mempty
 
           liftIO $ withFixmeEnv env (runForms theLog)
           cleanStage
 
+          compactStorageClose sto
+
         ListVal [SymbolVal "no-debug"] -> do
           setLoggingOff @DEBUG