1
1
mirror of https://github.com/github/semantic.git synced 2024-11-28 10:15:55 +03:00

Parse finite lists.

This commit is contained in:
Rob Rix 2015-11-02 12:03:16 -05:00
parent 5926ff63ff
commit cb67d79dea

View File

@ -39,6 +39,7 @@ private let source: Madness.Parser<[String], Source>.Function =
let argumentsParser: Madness.Parser<[String], Argument>.Function = fix { rest in
(curry(Argument.OutputFlag) <^> flag <|> curry(Argument.File) <^> source)
<*> rest
<|> pure(Argument.End)
}
import Madness