module CabalHelper.Compiletime.Log where
import Control.Monad.IO.Class
import System.IO
import System.IO.Error
import CabalHelper.Compiletime.Types
logIOError :: Verbose => String -> IO (Maybe a) -> IO (Maybe a)
logIOError :: String -> IO (Maybe a) -> IO (Maybe a)
logIOError label :: String
label a :: IO (Maybe a)
a = do
IO (Maybe a)
a IO (Maybe a) -> (IOError -> IO (Maybe a)) -> IO (Maybe a)
forall a. IO a -> (IOError -> IO a) -> IO a
`catchIOError` \ex :: IOError
ex -> do
String -> IO ()
forall (m :: * -> *). (MonadIO m, Verbose) => String -> m ()
vLog (String -> IO ()) -> String -> IO ()
forall a b. (a -> b) -> a -> b
$ String
label String -> String -> String
forall a. [a] -> [a] -> [a]
++ ": " String -> String -> String
forall a. [a] -> [a] -> [a]
++ IOError -> String
forall a. Show a => a -> String
show IOError
ex
Maybe a -> IO (Maybe a)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe a
forall a. Maybe a
Nothing
vLog :: (MonadIO m, Verbose) => String -> m ()
vLog :: String -> m ()
vLog msg :: String
msg
| Verbose
Word -> Bool
?verbose 0 = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ Handle -> String -> IO ()
hPutStrLn Handle
stderr String
msg
| Bool
otherwise = () -> m ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()