Revision 1494a4cc htools/htools.hs

b/htools/htools.hs
33 33 
import qualified Ganeti.HTools.Program.Hail as Hail
34 34 
import qualified Ganeti.HTools.Program.Hbal as Hbal
35 35 
import qualified Ganeti.HTools.Program.Hscan as Hscan
36 
import qualified Ganeti.HTools.Program.Hspace as Hspace
36 37 

  		





  37
  38
  
    
-- | Supported binaries.


  		





  38
  39
  
    
personalities :: [(String, IO ())]


  		





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


  		





  40
  41
  
    
                , ("hbal", Hbal.main)


  		





  41
  42
  
    
                , ("hscan", Hscan.main)


  		





  
  43
  
    
                , ("hspace", Hspace.main)


  		





  42
  44
  
    
                ]


  		





  43
  45
  
    

  		





  44
  46
  
    
-- | Display usage and exit.


  		












Also available in:
  Unified diff