Revision d2029364 src/Ganeti/Logging.hs

b/src/Ganeti/Logging.hs
49 49 
  ) where
50 50 

  		





  51
  51
  
    
import Control.Monad


  		





  
  52
  
    
import Control.Monad.Error (Error(..))


  		





  52
  53
  
    
import Control.Monad.Reader


  		





  53
  54
  
    
import System.Log.Logger


  		





  54
  55
  
    
import System.Log.Handler.Simple


  		





  ......




  57
  58
  
    
import System.Log.Formatter


  		





  58
  59
  
    
import System.IO


  		





  59
  60
  
    

  		





  
  61
  
    
import Ganeti.BasicTypes (ResultT(..))


  		





  60
  62
  
    
import Ganeti.THH


  		





  61
  63
  
    
import qualified Ganeti.ConstantUtils as ConstantUtils


  		





  62
  64
  
    

  		





  ......




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


  		





  138
  140
  
    
  logAt p x = lift $ logAt p x


  		





  139
  141
  
    

  		





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


  		





  
  143
  
    
  logAt p = lift . logAt p


  		





  
  144
  
    

  		





  140
  145
  
    
-- | Log at debug level.


  		





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


  		





  142
  147
  
    
logDebug = logAt DEBUG


  		












Also available in:
  Unified diff