From 9f244dcbb2a4ccecfb5bafce099ff4552a85413c Mon Sep 17 00:00:00 2001 From: Lukasz Czajka Date: Thu, 7 Nov 2024 13:52:25 +0100 Subject: [PATCH] Don't write log messages to stdout --- src/Juvix/Data/Effect/Git/Process.hs | 6 +++--- src/Juvix/Data/Effect/Log.hs | 2 +- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/src/Juvix/Data/Effect/Git/Process.hs b/src/Juvix/Data/Effect/Git/Process.hs index 1dba21c5df..eaa1c36048 100644 --- a/src/Juvix/Data/Effect/Git/Process.hs +++ b/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 diff --git a/src/Juvix/Data/Effect/Log.hs b/src/Juvix/Data/Effect/Log.hs index da97e25a50..90e2c0a8c6 100644 --- a/src/Juvix/Data/Effect/Log.hs +++ b/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