wip

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