aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/library/lux/control/parser.lux
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/library/lux/control/parser.lux')
-rw-r--r--stdlib/source/library/lux/control/parser.lux12
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))