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

b/htools/Ganeti/HTools/Program/Hscan.hs
27 27 

  		





  28
  28
  
    
import Control.Monad


  		





  29
  29
  
    
import Data.Maybe (isJust, fromJust, fromMaybe)


  		





  30
  
  
    
import System (exitWith, ExitCode(..))


  		





  
  30
  
    
import System.Environment (getArgs)


  		





  
  31
  
    
import System.Exit


  		





  31
  32
  
    
import System.IO


  		





  32
  33
  
    
import System.FilePath


  		





  33
  
  
    
import qualified System


  		





  34
  34
  
    

  		





  35
  35
  
    
import Text.Printf (printf)


  		





  36
  36
  
    

  		





  ......




  127
  127
  
    
-- | Main function.


  		





  128
  128
  
    
main :: IO ()


  		





  129
  129
  
    
main = do


  		





  130
  
  
    
  cmd_args <- System.getArgs


  		





  
  130
  
    
  cmd_args <- getArgs


  		





  131
  131
  
    
  (opts, clusters) <- parseOpts cmd_args "hscan" options


  		





  132
  132
  
    
  let local = "LOCAL"


  		





  133
  133
  
    

  		












Also available in:
  Unified diff