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

wip

This commit is contained in:
Dmitry Zuikov 2024-06-03 15:07:37 +03:00
parent 99bf986e2f
commit efc3e3cfca
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
.fixme-new/log
View File

Binary file not shown.

7
fixme-new/lib/Fixme/Run.hs
View File

@ -466,6 +466,9 @@ run what = do
debug $ green $ pretty s debug $ green $ pretty s
updateFixme Nothing hash (fromString a) (fromString b) updateFixme Nothing hash (fromString a) (fromString b)
ListVal [SymbolVal "deleted", TimeStampLike _, FixmeHashLike hash] -> do
deleteFixme hash
ListVal [SymbolVal "deleted", FixmeHashLike hash] -> do ListVal [SymbolVal "deleted", FixmeHashLike hash] -> do
deleteFixme hash deleteFixme hash
@ -547,14 +550,14 @@ run what = do
<&> rights <&> rights
compactStorageClose sto
let top = show $ vcat (fmap pretty entries) let top = show $ vcat (fmap pretty entries)
let theLog = parseTop top & fromRight mempty let theLog = parseTop top & fromRight mempty
liftIO $ withFixmeEnv env (runForms theLog) liftIO $ withFixmeEnv env (runForms theLog)
cleanStage cleanStage
compactStorageClose sto
ListVal [SymbolVal "no-debug"] -> do ListVal [SymbolVal "no-debug"] -> do
setLoggingOff @DEBUG setLoggingOff @DEBUG