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