Revision d66aa238 htools/htools.hs
b/htools/htools.hs | ||
---|---|---|
56 | 56 |
Nothing -> usage name |
57 | 57 |
Just (fn, options, arguments) -> do |
58 | 58 |
cmd_args <- getArgs |
59 |
(opts, args) <- parseOpts cmd_args name (options ++ genericOpts) |
|
59 |
real_options <- options |
|
60 |
(opts, args) <- parseOpts cmd_args name (real_options ++ genericOpts) |
|
60 | 61 |
arguments |
61 | 62 |
fn opts args |
Also available in: Unified diff