Revision 22e513e7 htools/Ganeti/HTools/Program.hs

b/htools/Ganeti/HTools/Program.hs
31 31 

  		





  32
  32
  
    
import qualified Ganeti.HTools.Program.Hail as Hail


  		





  33
  33
  
    
import qualified Ganeti.HTools.Program.Hbal as Hbal


  		





  
  34
  
    
import qualified Ganeti.HTools.Program.Hcheck as Hcheck


  		





  34
  35
  
    
import qualified Ganeti.HTools.Program.Hscan as Hscan


  		





  35
  36
  
    
import qualified Ganeti.HTools.Program.Hspace as Hspace


  		





  36
  37
  
    
import qualified Ganeti.HTools.Program.Hinfo as Hinfo


  		





  ......




  39
  40
  
    
personalities :: [(String, (Options -> [String] -> IO (), [OptType]))]


  		





  40
  41
  
    
personalities = [ ("hail",   (Hail.main,   Hail.options))


  		





  41
  42
  
    
                , ("hbal",   (Hbal.main,   Hbal.options))


  		





  
  43
  
    
                , ("hcheck", (Hcheck.main, Hcheck.options))


  		





  42
  44
  
    
                , ("hscan",  (Hscan.main,  Hscan.options))


  		





  43
  45
  
    
                , ("hspace", (Hspace.main, Hspace.options))


  		





  44
  46
  
    
                , ("hinfo",  (Hinfo.main,  Hinfo.options))


  		












Also available in:
  Unified diff