From fd7892fba4008ab436f9e8016f76e65eaf1dc46b Mon Sep 17 00:00:00 2001 From: Alexander Foremny Date: Mon, 25 Dec 2023 13:26:22 +0100 Subject: chore: be quieter about shell commands --- app/Main.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'app/Main.hs') diff --git a/app/Main.hs b/app/Main.hs index 051752b..b21030d 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -454,7 +454,7 @@ promptString as s = do ensureGit :: IO () ensureGit = do doesExist <- doesDirectoryExist ".git" - unless doesExist $ sh_ "git init --initial-branch main" + unless doesExist $ sh_ ">/dev/null git init --initial-branch main" ensureDir :: FilePath -> IO () ensureDir dirName = @@ -499,8 +499,8 @@ withGit = withLockFile def ".gitlock" commitAll :: [FilePath] -> String -> IO () commitAll fps m = do - sh_ ("git add -- " ++ intercalate " " (map (printf "'%s'") fps)) - sh_ (printf "git commit -m '%s' || :" m) + sh_ (">/dev/null git add -- " ++ intercalate " " (map (printf "'%s'") fps)) + sh_ (printf ">/dev/null git commit -m '%s' || :" m) data DecodeException = DecodeException FilePath String deriving (Show) -- cgit v1.2.3