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