diff options
Diffstat (limited to 'CabalHelper/Log.hs')
-rw-r--r-- | CabalHelper/Log.hs | 21 |
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 |