Revision 0c599ca0 src/hs2py.hs

b/src/hs2py.hs
25 25 

  		





  26
  26
  
    
import Ganeti.Hs2Py.GenOpCodes


  		





  27
  27
  
    

  		





  
  28
  
    
import System.Environment (getArgs)


  		





  
  29
  
    
import System.Exit (exitFailure)


  		





  
  30
  
    
import System.IO (hPutStrLn, stderr)


  		





  
  31
  
    

  		





  28
  32
  
    
main :: IO ()


  		





  29
  
  
    
main = putStrLn showPyClasses


  		





  
  33
  
    
main = do


  		





  
  34
  
    
  args <- getArgs


  		





  
  35
  
    
  case args of


  		





  
  36
  
    
    ["--opcodes"] -> putStrLn showPyClasses


  		





  
  37
  
    
    _ -> do


  		





  
  38
  
    
      hPutStrLn stderr "Usage: hs2py --opcodes"


  		





  
  39
  
    
      exitFailure


  		












Also available in:
  Unified diff