Revision f0e4b2a4 src/Ganeti/DataCollectors/Drbd.hs

b/src/Ganeti/DataCollectors/Drbd.hs
30 30 
  , dcName
31 31 
  , dcVersion
32 32 
  , dcFormatVersion
33 
  , dcCategory
33 34 
  ) where
34 35 

  		





  35
  36
  
    

  		





  ......




  77
  78
  
    
dcFormatVersion :: Int


  		





  78
  79
  
    
dcFormatVersion = 1


  		





  79
  80
  
    

  		





  
  81
  
    
-- | The category of this data collector.


  		





  
  82
  
    
dcCategory :: Maybe DCCategory


  		





  
  83
  
    
dcCategory = Just DCStorage


  		





  
  84
  
    

  		





  80
  85
  
    
-- * Command line options


  		





  81
  86
  
    

  		





  82
  87
  
    
options :: IO [OptType]


  		





  ......




  125
  130
  
    
        show (Prelude.take defaultCharNum $ unpack unparsedText) ++ "\n"


  		





  126
  131
  
    
          ++ show contexts ++ "\n" ++ errorMessage


  		





  127
  132
  
    
      A.Done _ drbdStatus -> return $ J.showJSON drbdStatus


  		





  128
  
  
    
  buildReport dcName dcVersion dcFormatVersion jsonData


  		





  
  133
  
    
  buildReport dcName dcVersion dcFormatVersion dcCategory jsonData


  		





  129
  134
  
    

  		





  130
  135
  
    
-- | Main function.


  		





  131
  136
  
    
main :: Options -> [String] -> IO ()


  		












Also available in:
  Unified diff