CabalHelper/Log.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14

module CabalHelper.Log where

import Control.Monad
import Control.Monad.IO.Class
import Data.String
import System.IO
import Prelude

import CabalHelper.Types

vLog :: MonadIO m => Options -> String -> m ()
vLog Options { verbose = True } msg =
    liftIO $ hPutStrLn stderr msg
vLog _ _ = return ()