stylish-haskell-0.2.0.1: src/StylishHaskell/Verbose.hs

--------------------------------------------------------------------------------
module StylishHaskell.Verbose
    ( Verbose
    , makeVerbose
    ) where


--------------------------------------------------------------------------------
import           System.IO (hPutStrLn, stderr)


--------------------------------------------------------------------------------
type Verbose = String -> IO ()


--------------------------------------------------------------------------------
makeVerbose :: Bool -> Verbose
makeVerbose verbose
    | verbose   = hPutStrLn stderr
    | otherwise = const $ return ()