gren-lang/compiler
1
1
Fork 0
mirror of https://github.com/gren-lang/compiler.git synced 2024-09-11 16:56:29 +03:00
Code Issues Actions Packages Projects Releases Wiki Activity

Don't prompt user if terminal is non-interactive.

Browse Source
This commit is contained in:
Robin Heggelund Hansen 2024-06-22 22:03:00 +02:00
parent 51980e2de9
commit 82345d88d5
No known key found for this signature in database
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
builder/src/Reporting.hs
View File

@ -31,6 +31,7 @@ where
import Control.Concurrent import Control.Concurrent
import Control.Exception (AsyncException (UserInterrupt), SomeException, catch, fromException, throw) import Control.Exception (AsyncException (UserInterrupt), SomeException, catch, fromException, throw)
import GHC.IO.Handle (hIsTerminalDevice)
import Control.Monad (when) import Control.Monad (when)
import Data.ByteString.Builder qualified as B import Data.ByteString.Builder qualified as B
import Data.NonEmptyList qualified as NE import Data.NonEmptyList qualified as NE
@ -130,11 +131,13 @@ ignorer =
ask :: Bool -> D.Doc -> IO Bool ask :: Bool -> D.Doc -> IO Bool
ask skipPrompts doc = ask skipPrompts doc =
if skipPrompts do
then pure True interactive <- hIsTerminalDevice stdout
else do if skipPrompts || not interactive
Help.toStdout doc then pure True
askHelp else do
Help.toStdout doc
askHelp
askHelp :: IO Bool askHelp :: IO Bool
askHelp = askHelp =