Revision d2029364 src/Ganeti/Logging.hs
b/src/Ganeti/Logging.hs | ||
---|---|---|
49 | 49 |
) where |
50 | 50 |
|
51 | 51 |
import Control.Monad |
52 |
import Control.Monad.Error (Error(..)) |
|
52 | 53 |
import Control.Monad.Reader |
53 | 54 |
import System.Log.Logger |
54 | 55 |
import System.Log.Handler.Simple |
... | ... | |
57 | 58 |
import System.Log.Formatter |
58 | 59 |
import System.IO |
59 | 60 |
|
61 |
import Ganeti.BasicTypes (ResultT(..)) |
|
60 | 62 |
import Ganeti.THH |
61 | 63 |
import qualified Ganeti.ConstantUtils as ConstantUtils |
62 | 64 |
|
... | ... | |
137 | 139 |
instance (MonadLog m) => MonadLog (ReaderT r m) where |
138 | 140 |
logAt p x = lift $ logAt p x |
139 | 141 |
|
142 |
instance (MonadLog m, Error e) => MonadLog (ResultT e m) where |
|
143 |
logAt p = lift . logAt p |
|
144 |
|
|
140 | 145 |
-- | Log at debug level. |
141 | 146 |
logDebug :: (MonadLog m) => String -> m () |
142 | 147 |
logDebug = logAt DEBUG |
Also available in: Unified diff