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-24 06:47:52 +03:00
parent 6dbff6b598
commit 4b2da6bcad
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -436,10 +436,11 @@ compression ; prints compression level
entry $ bindMatch "reflog:refs:raw" $ nil_ $ \syn -> lift $ connectedDo do entry $ bindMatch "reflog:refs:raw" $ nil_ $ \syn -> lift $ connectedDo do
refsFiles >>= readRefsRaw >>= liftIO . mapM_ (print . pretty) refsFiles >>= readRefsRaw >>= liftIO . mapM_ (print . pretty)
entry $ bindMatch "reflog:wait" $ nil_ $ \syn -> lift $ connectedDo do entry $ bindMatch "repo:wait" $ nil_ $ \syn -> lift $ connectedDo do
let (_,argz) = splitOpts [] syn let (_,argz) = splitOpts [] syn
let t = headMay [ realToFrac x | LitIntVal x <- argz ] let t = headMay [ realToFrac x | LitIntVal x <- argz ]
waitRepo t waitRepo t
getRepoManifest >>= liftIO . print . pretty . mkForm "manifest" . coerce
entry $ bindMatch "reflog:imported" $ nil_ $ \syn -> lift $ connectedDo do entry $ bindMatch "reflog:imported" $ nil_ $ \syn -> lift $ connectedDo do
p <- importedCheckpoint p <- importedCheckpoint