module Language.Haskell.Stylish.Verbose
( Verbose
, makeVerbose
) where
import System.IO (hPutStrLn, stderr)
type Verbose = String -> IO ()
makeVerbose :: Bool -> Verbose
makeVerbose :: Bool -> Verbose
makeVerbose Bool
verbose
| Bool
verbose = Handle -> Verbose
hPutStrLn Handle
stderr
| Bool
otherwise = IO () -> Verbose
forall a b. a -> b -> a
const (IO () -> Verbose) -> IO () -> Verbose
forall a b. (a -> b) -> a -> b
$ () -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()