Revision 54c7dff7 src/Ganeti/DataCollectors/Drbd.hs

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

  		





  36
  37
  
    

  		





  ......




  82
  83
  
    
dcCategory :: Maybe DCCategory


  		





  83
  84
  
    
dcCategory = Just DCStorage


  		





  84
  85
  
    

  		





  
  86
  
    
-- | The kind of this data collector.


  		





  
  87
  
    
dcKind :: DCKind


  		





  
  88
  
    
dcKind = DCKStatus


  		





  
  89
  
    

  		





  85
  90
  
    
-- * Command line options


  		





  86
  91
  
    

  		





  87
  92
  
    
options :: IO [OptType]


  		





  ......




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


  		





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


  		





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


  		





  133
  
  
    
  buildReport dcName dcVersion dcFormatVersion dcCategory jsonData


  		





  
  138
  
    
  buildReport dcName dcVersion dcFormatVersion dcCategory dcKind jsonData


  		





  134
  139
  
    

  		





  135
  140
  
    
-- | Main function.


  		





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


  		












Also available in:
  Unified diff