module System.Console.MultiArg.SampleParser where
import qualified System.Console.MultiArg.Combinator as C
import qualified System.Console.MultiArg.CommandLine as P
data Flag =
Bytes String
| Follow (Maybe String)
| Retry
| Lines String
| Stats String
| Pid String
| Quiet
| Sleep String
| Verbose
| Help
| Version
| Filename String
deriving Show
specs :: [C.OptSpec Flag]
specs =
[ C.OptSpec ["bytes"] ['c']
(C.OneArg (return . Bytes))
, C.OptSpec ["follow"] ['f']
(C.OptionalArg (return . Follow))
, C.OptSpec ["follow-retry"] ['F'] (C.NoArg Retry)
, C.OptSpec ["lines"] ['n']
(C.OneArg (return . Lines))
, C.OptSpec ["max-unchanged-stats"] []
(C.OneArg (return . Stats))
, C.OptSpec ["pid"] []
(C.OneArg (return . Pid))
, C.OptSpec ["quiet"] ['q'] (C.NoArg Quiet)
, C.OptSpec ["sleep-interval"] ['s']
(C.OneArg (return . Sleep))
, C.OptSpec ["verbose"] ['v'] (C.NoArg Verbose)
, C.OptSpec ["help"] [] (C.NoArg Help)
, C.OptSpec ["version"] [] (C.NoArg Version)
]
sampleMain :: P.Intersperse -> IO ()
sampleMain i = do
r <- P.simpleIO specs i (return . Filename)
print r