Don't write log messages to stdout

src/Juvix/Data/Effect/Git/Process.hs

@@ -63,20 +63,20 @@ gitHeadRef = gitNormalizeRef "HEAD"
 
 -- | Checkout the clone at a particular ref
 gitCheckout :: (Members '[TaggedLock, ProcessE, Error GitProcessError, Reader CloneEnv] r) => Text -> Sem r ()
-gitCheckout ref = withTaggedLockDir' (void (runGitCmdInDir ["checkout", ref]))
+gitCheckout ref = withTaggedLockDir' (void (runGitCmdInDir ["checkout", "-q", ref]))
 
 -- | Fetch in the clone
 gitFetch :: (Members '[TaggedLock, ProcessE, Error GitProcessError, Reader CloneEnv, Internet] r) => Sem r ()
 gitFetch = whenHasInternet gitFetchOnline
 
 gitFetchOnline :: (Members '[TaggedLock, Reader CloneEnv, Error GitProcessError, ProcessE, Online] r) => Sem r ()
-gitFetchOnline = withTaggedLockDir' (void (runGitCmdInDir ["fetch"]))
+gitFetchOnline = withTaggedLockDir' (void (runGitCmdInDir ["fetch", "-q"]))
 
 gitCloneOnline :: (Members '[Log, Error GitProcessError, ProcessE, Online, Reader CloneEnv] r) => Text -> Sem r ()
 gitCloneOnline url = do
   p <- asks (^. cloneEnvDir)
   log ("Cloning " <> url <> " to " <> pack (toFilePath p))
-  void (runGitCmd ["clone", url, T.pack (toFilePath p)])
+  void (runGitCmd ["clone", "-q", url, T.pack (toFilePath p)])
 
 cloneGitRepo :: (Members '[Log, Files, ProcessE, Error GitProcessError, Reader CloneEnv, Internet] r) => Text -> Sem r ()
 cloneGitRepo = whenHasInternet . gitCloneOnline

src/Juvix/Data/Effect/Log.hs

@@ -12,7 +12,7 @@ runLogIO ::
   Sem (Log ': r) a ->
   Sem r a
 runLogIO sem = do
-  liftIO (hSetBuffering stdout LineBuffering)
+  liftIO (hSetBuffering stderr LineBuffering)
   interpret
     ( \case
         Log txt -> putStrLn txt