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 Zuykov 2025-05-17 13:00:49 +03:00
parent 22ba474e65
commit 5d546075aa
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
hbs2-git3/app/GitRemoteHelper.hs
View File

@ -148,7 +148,9 @@ setupTrace cp_ refz = do
setupTrace_ traceMode setupTrace_ traceMode
where where
setupTrace_ True = none setupTrace_ True = do
setLogging @DEBUG debugPrefix
setupTrace_ _ = do setupTrace_ _ = do
-- --
none none
@ -240,10 +242,10 @@ main = flip runContT pure do
cp <- newTVarIO Nothing cp <- newTVarIO Nothing
refz <- newTVarIO mempty refz <- newTVarIO mempty
setupTrace cp refz
setupLogger setupLogger
setupTrace cp refz
setStatusOn setStatusOn
env <- nullGit3Env env <- nullGit3Env
@ -261,6 +263,8 @@ main = flip runContT pure do
cli <- parseCLI cli <- parseCLI
debug $ "CLI:" <+> pretty cli
url <- case cli of url <- case cli of
[ ListVal [_, RepoURL x ] ] -> do [ ListVal [_, RepoURL x ] ] -> do
notice $ "git remote ref set:" <+> green (pretty (AsBase58 x)) <> line notice $ "git remote ref set:" <+> green (pretty (AsBase58 x)) <> line