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