Revision 42834645 htools/htools.hs

b/htools/htools.hs
35 35 
import System.IO.Error (isDoesNotExistError)
36 36 

  		





  37
  37
  
    
import Ganeti.HTools.Utils


  		





  38
  
  
    
import Ganeti.HTools.CLI (parseOpts)


  		





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


  		





  39
  39
  
    
import Ganeti.HTools.Program (personalities)


  		





  40
  40
  
    

  		





  41
  41
  
    
-- | Display usage and exit.


  		





  ......




  59
  59
  
    
    Nothing -> usage name


  		





  60
  60
  
    
    Just (fn, options) -> do


  		





  61
  61
  
    
         cmd_args <- getArgs


  		





  62
  
  
    
         (opts, args) <- parseOpts cmd_args name options


  		





  
  62
  
    
         (opts, args) <- parseOpts cmd_args name $ options ++ genericOpts


  		





  63
  63
  
    
         fn opts args


  		












Also available in:
  Unified diff