diff options
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/library/lux/control/parser/cli.lux | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/stdlib/source/library/lux/control/parser/cli.lux b/stdlib/source/library/lux/control/parser/cli.lux index 5a66208b4..e8796ff1b 100644 --- a/stdlib/source/library/lux/control/parser/cli.lux +++ b/stdlib/source/library/lux/control/parser/cli.lux @@ -47,7 +47,7 @@ (do try.monad [[remaining raw] (any inputs) output (parser raw)] - (wrap [remaining output])))) + (in [remaining output])))) (def: #export (this reference) {#.doc "Checks that a token is in the inputs."} @@ -56,7 +56,7 @@ (do try.monad [[remaining raw] (any inputs)] (if (text\= reference raw) - (wrap [remaining []]) + (in [remaining []]) (#try.Failure (format "Missing token: '" reference "'")))))) (def: #export (somewhere cli) @@ -76,8 +76,8 @@ (#.Cons to_omit immediate') (do try.monad [[remaining output] (recur immediate')] - (wrap [(#.Cons to_omit remaining) - output]))))))) + (in [(#.Cons to_omit remaining) + output]))))))) (def: #export end {#.doc "Ensures there are no more inputs."} |