Revision 22278fa7 htools/htools.hs
b/htools/htools.hs | ||
---|---|---|
57 | 57 |
boolnames = map (\(x, y) -> (x == name, Just y)) personalities |
58 | 58 |
case select Nothing boolnames of |
59 | 59 |
Nothing -> usage name |
60 |
Just (fn, options) -> do |
|
60 |
Just (fn, options, arguments) -> do
|
|
61 | 61 |
cmd_args <- getArgs |
62 |
(opts, args) <- parseOpts cmd_args name $ options ++ genericOpts |
|
62 |
(opts, args) <- parseOpts cmd_args name (options ++ genericOpts) |
|
63 |
arguments |
|
63 | 64 |
fn opts args |
Also available in: Unified diff