Revision 43c329e7

b/src/Ganeti/Logging.hs
48 48 
  , syslogUsageFromRaw
49 49 
  ) where
50 50 

  		





  51
  
  
    
import Control.Monad (when)


  		





  
  51
  
    
import Control.Monad


  		





  
  52
  
    
import Control.Monad.Reader


  		





  52
  53
  
    
import System.Log.Logger


  		





  53
  54
  
    
import System.Log.Handler.Simple


  		





  54
  55
  
    
import System.Log.Handler.Syslog


  		





  ......




  133
  134
  
    
instance MonadLog IO where


  		





  134
  135
  
    
  logAt = logM rootLoggerName


  		





  135
  136
  
    

  		





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


  		





  
  138
  
    
  logAt p x = lift $ logAt p x


  		





  136
  139
  
    

  		





  137
  140
  
    
-- | Log at debug level.


  		





  138
  141
  
    
logDebug :: (MonadLog m) => String -> m ()


  		












Also available in:
  Unified diff