Revision a895fa19 src/Ganeti/DataCollectors/Drbd.hs

b/src/Ganeti/DataCollectors/Drbd.hs
28 28 
  , options
29 29 
  , arguments
30 30 
  , dcName
31 
  , dcVersion
31 32 
  ) where
32 33 

  		





  33
  34
  
    

  		





  ......




  67
  68
  
    
dcName :: String


  		





  68
  69
  
    
dcName = "drbd"


  		





  69
  70
  
    

  		





  
  71
  
    
-- | The version of this data collector.


  		





  
  72
  
    
dcVersion :: DCVersion


  		





  
  73
  
    
dcVersion = DCVerBuiltin


  		





  
  74
  
    

  		





  70
  75
  
    
-- | The version number for the data format of this data collector.


  		





  71
  76
  
    
dcFormatVersion :: Int


  		





  72
  77
  
    
dcFormatVersion = 1


  		





  ......




  119
  124
  
    
        show (Prelude.take defaultCharNum $ unpack unparsedText) ++ "\n"


  		





  120
  125
  
    
          ++ show contexts ++ "\n" ++ errorMessage


  		





  121
  126
  
    
      A.Done _ drbdStatus -> return $ J.showJSON drbdStatus


  		





  122
  
  
    
  buildReport dcName Nothing dcFormatVersion jsonData


  		





  
  127
  
    
  buildReport dcName dcVersion dcFormatVersion jsonData


  		





  123
  128
  
    

  		





  124
  129
  
    
-- | Main function.


  		





  125
  130
  
    
main :: Options -> [String] -> IO ()


  		












Also available in:
  Unified diff