--------------------------------------------------------------------------------
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 ()