diff options
Diffstat (limited to 'stdlib/source/lux/cli.lux')
| -rw-r--r-- | stdlib/source/lux/cli.lux | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/stdlib/source/lux/cli.lux b/stdlib/source/lux/cli.lux index fdc1d9365..1ad54189c 100644 --- a/stdlib/source/lux/cli.lux +++ b/stdlib/source/lux/cli.lux @@ -99,11 +99,11 @@ (def: program-args^ (Syntax Program-Args) - (p.alt s.local-identifier - (s.tuple (p.some (p.either (do p.Monad<Parser> - [name s.local-identifier] - (wrap [(code.identifier ["" name]) (` any)])) - (s.record (p.seq s.any s.any))))))) + (p.or s.local-identifier + (s.tuple (p.some (p.either (do p.Monad<Parser> + [name s.local-identifier] + (wrap [(code.identifier ["" name]) (` any)])) + (s.record (p.and s.any s.any))))))) (syntax: #export (program: {args program-args^} |