module System.Console.MultiArg.SampleParser where
import System.Console.MultiArg
specs :: [OptSpec]
specs = [ OptSpec "bytes" "c" [] oneArg
, OptSpec "follow" "f" [] optionalArg
, OptSpec "follow-retry" "F" [] noArg
, OptSpec "lines" "n" [] oneArg
, OptSpec "max-unchanged-stats" "" [] oneArg
, OptSpec "pid" "" [] oneArg
, OptSpec "quiet" "q" ["silent"] noArg
, OptSpec "sleep-interval" "s" [] oneArg
, OptSpec "verbose" "v" [] noArg
, OptSpec "help" "" [] noArg
, OptSpec "version" "" [] noArg
]
sampleMain :: IO ()
sampleMain = do
as <- getArgs
let r = parse Intersperse specs as
print r