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:26:45 +03:00
parent 733e7f5a9c
commit 148aa69533
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -396,11 +396,8 @@ compression ; prints compression level
refsFiles >>= readRefsRaw >>= liftIO . mapM_ (print . pretty) refsFiles >>= readRefsRaw >>= liftIO . mapM_ (print . pretty)
entry $ bindMatch "repo:wait" $ nil_ $ \syn -> lift $ connectedDo do entry $ bindMatch "repo:wait" $ nil_ $ \syn -> lift $ connectedDo do
let (_,argz) = splitOpts [] syn resolveRepoKeyThrow syn >>= setGitRepoKey
waitRepo Nothing =<< getGitRepoKeyThrow
let t = headMay [ realToFrac x | LitIntVal x <- argz ]
waitRepo t =<< getGitRepoKeyThrow
getRepoManifest >>= liftIO . print . pretty . mkForm "manifest" . coerce getRepoManifest >>= liftIO . print . pretty . mkForm "manifest" . coerce