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