Revision 55abd2c7 htools/mon-collector.hs

b/htools/mon-collector.hs
29 29 
import System.Environment
30 30 
import System.IO
31 31 

  		





  
  32
  
    
import Ganeti.Common


  		





  32
  33
  
    
import Ganeti.Utils


  		





  33
  
  
    
import Ganeti.HTools.CLI (parseOpts, genericOpts)


  		





  
  34
  
    
import Ganeti.DataCollectors.CLI (genericOptions, defaultOptions)


  		





  34
  35
  
    
import Ganeti.DataCollectors.Program (personalities)


  		





  35
  36
  
    

  		





  36
  37
  
    
-- | Display usage and exit.


  		





  ......




  56
  57
  
    
    Just (fn, options, arguments) -> do


  		





  57
  58
  
    
         let actual_args = tail cmd_args


  		





  58
  59
  
    
         real_options <- options


  		





  59
  
  
    
         (opts, args) <- parseOpts actual_args name (real_options ++


  		





  60
  
  
    
                           genericOpts) arguments


  		





  
  60
  
    
         (opts, args) <- parseOpts defaultOptions actual_args name


  		





  
  61
  
    
                           (real_options ++ genericOptions) arguments


  		





  61
  62
  
    
         fn opts args


  		












Also available in:
  Unified diff