Revision 88a0e24b src/hs2py.hs
| b/src/hs2py.hs | ||
|---|---|---|
| 24 | 24 |
-} |
| 25 | 25 |
|
| 26 | 26 |
import Ganeti.Hs2Py.GenOpCodes |
| 27 |
import Ganeti.Hs2Py.ListConstants |
|
| 27 | 28 |
|
| 28 | 29 |
import System.Environment (getArgs) |
| 29 | 30 |
import System.Exit (exitFailure) |
| ... | ... | |
| 34 | 35 |
args <- getArgs |
| 35 | 36 |
case args of |
| 36 | 37 |
["--opcodes"] -> putStrLn showPyClasses |
| 38 |
["--constants"] -> putConstants |
|
| 37 | 39 |
_ -> do |
| 38 |
hPutStrLn stderr "Usage: hs2py --opcodes" |
|
| 40 |
hPutStrLn stderr "Usage: hs2py --opcodes | --constants"
|
|
| 39 | 41 |
exitFailure |
Also available in: Unified diff