aboutsummaryrefslogtreecommitdiff
path: root/CabalHelper/Log.hs
diff options
context:
space:
mode:
Diffstat (limited to 'CabalHelper/Log.hs')
-rw-r--r--CabalHelper/Log.hs21
1 files changed, 0 insertions, 21 deletions
diff --git a/CabalHelper/Log.hs b/CabalHelper/Log.hs
deleted file mode 100644
index bbc84a6..0000000
--- a/CabalHelper/Log.hs
+++ /dev/null
@@ -1,21 +0,0 @@
-module CabalHelper.Log where
-
-import Control.Monad
-import Control.Monad.IO.Class
-import Control.Exception as E
-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 ()
-
-logSomeError :: Options -> String -> IO (Maybe a) -> IO (Maybe a)
-logSomeError opts label a = do
- a `E.catch` \se@(SomeException _) -> do
- vLog opts $ label ++ ": " ++ show se
- return Nothing