wip

.fixme-new/log

@@ -1,3 +1,4 @@
 modified 1716433451 "2piRBmaQkb3c2nAcH6Mrf8EAddNJF34c6Tm8PWnbVBqN" "workflow" "done"
 deleted "9m2B74CHFTGBTWXo1uNoi9StuQ3AxnMpULwbLcToMkmZ"
 deleted "EUP5zeroTKWuP96dQQrZVZqUhBXdh8icD3P9EebYo9HR"
+modified 1716435973 "H2AZFfGZsSaVWyBme21PJQkprAn5yaizf8LNGQekFhPe" "workflow" "test"

.fixme/log

@@ -1,2 +1,3 @@
 
 (fixme-set "workflow" "done" "RsTry2C5Gk")
+(fixme-set "workflow" "done" "DYfcfsNCrU")

fixme-new/lib/Fixme/State.hs

@@ -515,6 +515,15 @@ cleanupDatabase = do
 deleteFixme :: (FixmePerks m,MonadReader FixmeEnv m) => Text -> m ()
 deleteFixme hash = withState do
   trace $ red "deleteFixme" <+> pretty hash
+
+  here <- select [qc| select true
+                      from fixmedeleted
+                      where deleted and id = ?
+                      order by ts desc
+                      limit 1
+                     |] (Only hash) <&> isJust . listToMaybe . fmap (fromOnly @Bool)
+
+  unless here do
     insert [qc| insert into fixmedeleted (id,ts,deleted)
                 values (?,(strftime('%s', 'now')),true)
                 on conflict(id,ts) do nothing