diff options
| author | Daniel Gröber <dxld@darkboxed.org> | 2015-08-21 06:34:09 +0200 |
|---|---|---|
| committer | Daniel Gröber <dxld@darkboxed.org> | 2015-08-21 09:26:08 +0200 |
| commit | c7aba0dbaaf7889e2cc653bf203e4b046b9a5029 (patch) | |
| tree | 9049c995cd4e512ead627b3df45201669d1f6ecd /CabalHelper/Log.hs | |
| parent | af90d1aed4227033bfc657278067a5cbcff8226c (diff) | |
Factor helper compilation into seperate module for testing
Diffstat (limited to 'CabalHelper/Log.hs')
| -rw-r--r-- | CabalHelper/Log.hs | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/CabalHelper/Log.hs b/CabalHelper/Log.hs new file mode 100644 index 0000000..9e04df0 --- /dev/null +++ b/CabalHelper/Log.hs @@ -0,0 +1,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 () |