minor issue fix

2024-08-08 18:55:19 +03:00 · 2024-08-08 18:55:19 +03:00 · 6b87966e2a
parent ccaa7d1687
commit 6b87966e2a
1 changed files with 5 additions and 2 deletions
--- a/hbs2-sync/src/HBS2/Sync/Prelude.hs
+++ b/hbs2-sync/src/HBS2/Sync/Prelude.hs
@ -626,12 +626,15 @@ runDirectory = do
            when here do

              tombs <- getTombs
-              postEntryTx Nothing (HM.lookup p hasGK0) refchan path e

              n <- Compact.getValEither @Integer tombs p
                    <&> fromRight (Just 0)

-              notice $ red "YEAH, mttf!"
+
+              when (n < Just 1) do
+                notice $ red "YEAH, mttf!" <+> pretty n
+                postEntryTx Nothing (HM.lookup p hasGK0) refchan path e
+
              Compact.putVal tombs p (maybe 0 succ n)

              b <- backupMode