From fd7892fba4008ab436f9e8016f76e65eaf1dc46b Mon Sep 17 00:00:00 2001
From: Alexander Foremny <aforemny@posteo.de>
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')
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