Revision 81959e7b src/hs2py.hs
b/src/hs2py.hs | ||
---|---|---|
1 |
{-# LANGUAGE TemplateHaskell #-} |
|
2 |
|
|
1 | 3 |
{-| Haskell to Python opcode generation program. |
2 | 4 |
|
3 | 5 |
-} |
... | ... | |
25 | 27 |
|
26 | 28 |
import Ganeti.Hs2Py.GenOpCodes |
27 | 29 |
import Ganeti.Hs2Py.ListConstants |
30 |
import Ganeti.THH.PyRPC |
|
31 |
import qualified Ganeti.WConfd.Core as WConfd |
|
28 | 32 |
|
29 | 33 |
import System.Environment (getArgs) |
30 | 34 |
import System.Exit (exitFailure) |
... | ... | |
36 | 40 |
case args of |
37 | 41 |
["--opcodes"] -> putStrLn showPyClasses |
38 | 42 |
["--constants"] -> putConstants |
43 |
["--wconfd-rpc"] -> putStrLn $ |
|
44 |
$( genPyUDSRpcStubStr "ClientRpcStub" "WCONFD_SOCKET" |
|
45 |
WConfd.exportedFunctions ) |
|
39 | 46 |
_ -> do |
40 |
hPutStrLn stderr "Usage: hs2py --opcodes | --constants" |
|
47 |
hPutStrLn stderr "Usage: hs2py --opcodes\ |
|
48 |
\| --constants\ |
|
49 |
\| --wconfd-rpc" |
|
41 | 50 |
exitFailure |
Also available in: Unified diff