Revision 7345b69b htools/Ganeti/HTools/Program/Hail.hs

b/htools/Ganeti/HTools/Program/Hail.hs
26 26 
module Ganeti.HTools.Program.Hail (main) where
27 27 

  		





  28
  28
  
    
import Control.Monad


  		





  
  29
  
    
import System.Environment (getArgs)


  		





  29
  30
  
    
import System.IO


  		





  30
  
  
    
import qualified System


  		





  31
  31
  
    

  		





  32
  32
  
    
import qualified Ganeti.HTools.Cluster as Cluster


  		





  33
  33
  
    

  		





  ......




  51
  51
  
    
-- | Main function.


  		





  52
  52
  
    
main :: IO ()


  		





  53
  53
  
    
main = do


  		





  54
  
  
    
  cmd_args <- System.getArgs


  		





  
  54
  
    
  cmd_args <- getArgs


  		





  55
  55
  
    
  (opts, args) <- parseOpts cmd_args "hail" options


  		





  56
  56
  
    

  		





  57
  57
  
    
  let shownodes = optShowNodes opts


  		












Also available in:
  Unified diff