Revision 9f13be88 htools/htools.hs

b/htools/htools.hs
31 31 
import System.IO
32 32 

  		





  33
  33
  
    
import Ganeti.HTools.Utils


  		





  34
  
  
    
import Ganeti.HTools.CLI (OptType, Options, parseOpts)


  		





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


  		





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


  		





  37
  
  
    
import qualified Ganeti.HTools.Program.Hscan as Hscan


  		





  38
  
  
    
import qualified Ganeti.HTools.Program.Hspace as Hspace


  		





  39
  
  
    

  		





  40
  
  
    
-- | Supported binaries.


  		





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


  		





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


  		





  43
  
  
    
                , ("hbal",   (Hbal.main,   Hbal.options))


  		





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


  		





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


  		





  46
  
  
    
                ]


  		





  
  34
  
    
import Ganeti.HTools.CLI (parseOpts)


  		





  
  35
  
    
import Ganeti.HTools.Program (personalities)


  		





  47
  36
  
    

  		





  48
  37
  
    
-- | Display usage and exit.


  		





  49
  38
  
    
usage :: String -> IO ()


  		












Also available in:
  Unified diff