diff options
Diffstat (limited to 'stdlib/source/library/lux/control/parser.lux')
-rw-r--r-- | stdlib/source/library/lux/control/parser.lux | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/stdlib/source/library/lux/control/parser.lux b/stdlib/source/library/lux/control/parser.lux index 2330b8606..0d7fd1217 100644 --- a/stdlib/source/library/lux/control/parser.lux +++ b/stdlib/source/library/lux/control/parser.lux @@ -119,8 +119,8 @@ {try.#Failure _} (that tokens) - output - output))) + success + success))) (def .public (some parser) (All (_ s a) @@ -224,11 +224,11 @@ (All (_ s a) (-> a (Parser s a) (Parser s a))) (function (_ input) (when (parser input) - {try.#Success [input' output]} - {try.#Success [input' output]} - {try.#Failure error} - {try.#Success [input value]}))) + {try.#Success [input value]} + + success + success))) (def .public remaining (All (_ s) (Parser s s)) |