diff options
author | Alexander Foremny <aforemny@posteo.de> | 2023-12-25 13:26:22 +0100 |
---|---|---|
committer | Alexander Foremny <aforemny@posteo.de> | 2023-12-25 13:26:22 +0100 |
commit | fd7892fba4008ab436f9e8016f76e65eaf1dc46b (patch) | |
tree | f9a954e5127a22cb21da31134ca523dbceb7d23d /app/Main.hs | |
parent | 0ec8e1686013bbb3613d69b9271d7c5f2afdaaf9 (diff) |
chore: be quieter about shell commands
Diffstat (limited to 'app/Main.hs')
-rw-r--r-- | app/Main.hs | 6 |
1 files changed, 3 insertions, 3 deletions
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) |