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:
voidlizard 2025-01-30 13:54:29 +03:00
parent 7736cb76fa
commit f7aa86a647
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
hbs2-git3/lib/HBS2/Git3/Run.hs
View File

@ -263,7 +263,9 @@ compression ; prints compression level
for_ z $ \h ->do for_ z $ \h ->do
liftIO $ print $ pretty h liftIO $ print $ pretty h
entry $ bindMatch "reflog:index:build" $ nil_ $ const $ lift $ connectedDo do entry $ bindMatch "reflog:index:build" $ nil_ $ \syn -> lift $ connectedDo do
resolveRepoKeyThrow syn >>= setGitRepoKey
waitRepo Nothing =<< getGitRepoKeyThrow
updateReflogIndex updateReflogIndex
entry $ bindMatch "test:reflog:index:lookup" $ nil_ \case entry $ bindMatch "test:reflog:index:lookup" $ nil_ \case
@ -358,6 +360,7 @@ compression ; prints compression level
entry $ bindMatch "reflog:tx:list" $ nil_ $ \syn -> lift $ connectedDo do entry $ bindMatch "reflog:tx:list" $ nil_ $ \syn -> lift $ connectedDo do
resolveRepoKeyThrow syn >>= setGitRepoKey
waitRepo Nothing =<< getGitRepoKeyThrow waitRepo Nothing =<< getGitRepoKeyThrow
let (opts, _) = splitOpts [ ("--checkpoints",0) let (opts, _) = splitOpts [ ("--checkpoints",0)