From c7aba0dbaaf7889e2cc653bf203e4b046b9a5029 Mon Sep 17 00:00:00 2001
From: Daniel Gröber <dxld@darkboxed.org>
Date: Fri, 21 Aug 2015 06:34:09 +0200
Subject: Factor helper compilation into seperate module for testing

---
 CabalHelper/Log.hs | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100644 CabalHelper/Log.hs

(limited to 'CabalHelper/Log.hs')

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 ()
-- 
cgit v1.2.3