Revision 12121213 src/Ganeti/Logging.hs

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