Revision 861ddf80

b/src/Ganeti/Logging.hs
137 137 
  logAt = logM rootLoggerName
138 138 

  		





  139
  139
  
    
instance (MonadLog m) => MonadLog (ReaderT r m) where


  		





  140
  
  
    
  logAt p x = lift $ logAt p x


  		





  
  140
  
    
  logAt p = lift . logAt p


  		





  141
  141
  
    

  		





  142
  142
  
    
instance (MonadLog m, Error e) => MonadLog (ResultT e m) where


  		





  143
  143
  
    
  logAt p = lift . logAt p


  		












Also available in:
  Unified diff