module Examples.Alternatives where import Options.Applicative data Value = A | B deriving (Eq, Show) values :: Parser [Value] values = many $ a <|> b a :: Parser Value a = flag' A (short 'a') b :: Parser Value b = flag' B (short 'b') opts :: ParserInfo [Value] opts = info values idm