Revision 12121213
b/src/Ganeti/Logging.hs | ||
---|---|---|
54 | 54 |
import Control.Monad |
55 | 55 |
import Control.Monad.Error (Error(..), MonadError(..), catchError) |
56 | 56 |
import Control.Monad.Reader |
57 |
import qualified Control.Monad.RWS.Strict as RWSS |
|
58 |
import Data.Monoid |
|
57 | 59 |
import System.Log.Logger |
58 | 60 |
import System.Log.Handler.Simple |
59 | 61 |
import System.Log.Handler.Syslog |
... | ... | |
142 | 144 |
instance (MonadLog m) => MonadLog (ReaderT r m) where |
143 | 145 |
logAt p = lift . logAt p |
144 | 146 |
|
147 |
instance (MonadLog m, Monoid w) => MonadLog (RWSS.RWST r w s m) where |
|
148 |
logAt p = lift . logAt p |
|
149 |
|
|
145 | 150 |
instance (MonadLog m, Error e) => MonadLog (ResultT e m) where |
146 | 151 |
logAt p = lift . logAt p |
147 | 152 |
|
Also available in: Unified diff