Revision 27f904f7 src/Ganeti/Logging.hs
| b/src/Ganeti/Logging.hs | ||
|---|---|---|
| 33 | 33 |
|
| 34 | 34 |
module Ganeti.Logging |
| 35 | 35 |
( setupLogging |
| 36 |
, MonadLog(..) |
|
| 37 |
, Priority(..) |
|
| 36 | 38 |
, logDebug |
| 37 | 39 |
, logInfo |
| 38 | 40 |
, logNotice |
| ... | ... | |
| 123 | 125 |
|
| 124 | 126 |
-- * Logging function aliases |
| 125 | 127 |
|
| 128 |
-- | A monad that allows logging. |
|
| 129 |
class Monad m => MonadLog m where |
|
| 130 |
-- | Log at a given level. |
|
| 131 |
logAt :: Priority -> String -> m () |
|
| 132 |
|
|
| 133 |
instance MonadLog IO where |
|
| 134 |
logAt = logM rootLoggerName |
|
| 135 |
|
|
| 136 |
|
|
| 126 | 137 |
-- | Log at debug level. |
| 127 |
logDebug :: String -> IO ()
|
|
| 128 |
logDebug = debugM rootLoggerName
|
|
| 138 |
logDebug :: (MonadLog m) => String -> m ()
|
|
| 139 |
logDebug = logAt DEBUG
|
|
| 129 | 140 |
|
| 130 | 141 |
-- | Log at info level. |
| 131 |
logInfo :: String -> IO ()
|
|
| 132 |
logInfo = infoM rootLoggerName
|
|
| 142 |
logInfo :: (MonadLog m) => String -> m ()
|
|
| 143 |
logInfo = logAt INFO
|
|
| 133 | 144 |
|
| 134 | 145 |
-- | Log at notice level. |
| 135 |
logNotice :: String -> IO ()
|
|
| 136 |
logNotice = noticeM rootLoggerName
|
|
| 146 |
logNotice :: (MonadLog m) => String -> m ()
|
|
| 147 |
logNotice = logAt NOTICE
|
|
| 137 | 148 |
|
| 138 | 149 |
-- | Log at warning level. |
| 139 |
logWarning :: String -> IO ()
|
|
| 140 |
logWarning = warningM rootLoggerName
|
|
| 150 |
logWarning :: (MonadLog m) => String -> m ()
|
|
| 151 |
logWarning = logAt WARNING
|
|
| 141 | 152 |
|
| 142 | 153 |
-- | Log at error level. |
| 143 |
logError :: String -> IO ()
|
|
| 144 |
logError = errorM rootLoggerName
|
|
| 154 |
logError :: (MonadLog m) => String -> m ()
|
|
| 155 |
logError = logAt ERROR
|
|
| 145 | 156 |
|
| 146 | 157 |
-- | Log at critical level. |
| 147 |
logCritical :: String -> IO ()
|
|
| 148 |
logCritical = criticalM rootLoggerName
|
|
| 158 |
logCritical :: (MonadLog m) => String -> m ()
|
|
| 159 |
logCritical = logAt CRITICAL
|
|
| 149 | 160 |
|
| 150 | 161 |
-- | Log at alert level. |
| 151 |
logAlert :: String -> IO ()
|
|
| 152 |
logAlert = alertM rootLoggerName
|
|
| 162 |
logAlert :: (MonadLog m) => String -> m ()
|
|
| 163 |
logAlert = logAt ALERT
|
|
| 153 | 164 |
|
| 154 | 165 |
-- | Log at emergency level. |
| 155 |
logEmergency :: String -> IO () |
|
| 156 |
logEmergency = emergencyM rootLoggerName |
|
| 166 |
logEmergency :: (MonadLog m) => String -> m () |
|
| 167 |
logEmergency = logAt EMERGENCY |
|
Also available in: Unified diff