Formatting.

This commit is contained in:
Robin Heggelund Hansen 2024-06-22 22:06:09 +02:00
parent 4f09526077
commit 18e8c31e19
No known key found for this signature in database

View File

@ -31,10 +31,10 @@ where
import Control.Concurrent
import Control.Exception (AsyncException (UserInterrupt), SomeException, catch, fromException, throw)
import GHC.IO.Handle (hIsTerminalDevice)
import Control.Monad (when)
import Data.ByteString.Builder qualified as B
import Data.NonEmptyList qualified as NE
import GHC.IO.Handle (hIsTerminalDevice)
import Gren.ModuleName qualified as ModuleName
import Gren.Package qualified as Pkg
import Gren.Version qualified as V
@ -131,7 +131,7 @@ ignorer =
ask :: Bool -> D.Doc -> IO Bool
ask skipPrompts doc =
do
do
interactive <- hIsTerminalDevice stdout
if skipPrompts || not interactive
then pure True