voidlizard
/
hbs2
mirror of https://github.com/voidlizard/hbs2
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

minor issue fix

This commit is contained in:
Dmitry Zuikov 2024-08-08 18:55:19 +03:00
parent ccaa7d1687
commit 6b87966e2a
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
hbs2-sync/src/HBS2/Sync/Prelude.hs
View File

@ -626,12 +626,15 @@ runDirectory = do
when here do when here do
tombs <- getTombs tombs <- getTombs
postEntryTx Nothing (HM.lookup p hasGK0) refchan path e
n <- Compact.getValEither @Integer tombs p n <- Compact.getValEither @Integer tombs p
<&> fromRight (Just 0) <&> 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) Compact.putVal tombs p (maybe 0 succ n)
b <- backupMode b <- backupMode