mirror of
https://github.com/HigherOrderCO/Kind.git
synced 2024-09-11 20:40:38 +03:00
13 lines
279 B
Plaintext
13 lines
279 B
Plaintext
Parser.Result
|
|
: ∀(T: *) *
|
|
= λT
|
|
$(self: (Parser.Result T))
|
|
∀(P: ∀(x: (Parser.Result T)) *)
|
|
∀(done:
|
|
∀(code: String) ∀(value: T)
|
|
(P (Parser.Result.done T code value))
|
|
)
|
|
∀(fail:
|
|
∀(error: String) (P (Parser.Result.fail T error))
|
|
)
|
|
(P self) |