Skip to content

Commit

Permalink
Formatting.
Browse files Browse the repository at this point in the history
  • Loading branch information
robinheghan committed Jun 22, 2024
1 parent 4f09526 commit 18e8c31
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions builder/src/Reporting.hs
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down Expand Up @@ -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
Expand Down

0 comments on commit 18e8c31

Please sign in to comment.