-------------------------------------------------------------------------------- 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 (m :: * -> *) a. Monad m => a -> m a return ()