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