Revision 707cd3d7 htools/rpc-test.hs
| b/htools/rpc-test.hs | ||
|---|---|---|
| 37 | 37 |
usage :: IO () |
| 38 | 38 |
usage = do |
| 39 | 39 |
prog <- getProgName |
| 40 |
hPutStrLn stderr $ "Usage: " ++ prog ++ " delay node..." |
|
| 41 |
exitWith $ ExitFailure 1 |
|
| 40 |
exitErr "Usage: " ++ prog ++ " delay node..." |
|
| 42 | 41 |
|
| 43 | 42 |
main :: IO () |
| 44 | 43 |
main = do |
Also available in: Unified diff