diff options
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) |