module Options.Applicative.Args
(argsArgument
,argsOption
,cmdOption)
where
import Data.Attoparsec.Args
import qualified Options.Applicative as O
import Stack.Prelude
argsArgument :: O.Mod O.ArgumentFields [String] -> O.Parser [String]
argsArgument =
O.argument
(do string <- O.str
either O.readerError return (parseArgsFromString Escaping string))
argsOption :: O.Mod O.OptionFields [String] -> O.Parser [String]
argsOption =
O.option
(do string <- O.str
either O.readerError return (parseArgsFromString Escaping string))
cmdOption :: O.Mod O.OptionFields (String, [String]) -> O.Parser (String, [String])
cmdOption =
O.option
(do string <- O.str
xs <- either O.readerError return (parseArgsFromString Escaping string)
case xs of
[] -> O.readerError "Must provide a command"
x:xs' -> return (x, xs'))