{- | Writes the message to the given handle unless the verbosity is less than
the message level. -}
verbMsg :: Handle -- ^ Output handle
        -> Int -- ^ global verbosity
        -> Int -- ^ message level
        -> String -- ^ message level
        -> IO ()
verbMsg hdl v lvl = when (lvl <= v) . hPutStr hdl
verbMsg :: Handle -- ^ Output handle
        -> Int -- ^ global verbosity
        -> Int -- ^ message level
        -> String -- ^ message level
        -> IO ()
verbMsg hdl v lvl = when (lvl <= v) . hPutStr hdl
verbMsg hdl v lvl = when (lvl <= v) . hPutStr hdl