aboutsummaryrefslogtreecommitdiff
path: root/new-luxc/source/luxc/lang/translation/jvm/procedure
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--new-luxc/source/luxc/lang/translation/jvm/procedure/host.lux12
1 files changed, 6 insertions, 6 deletions
diff --git a/new-luxc/source/luxc/lang/translation/jvm/procedure/host.lux b/new-luxc/source/luxc/lang/translation/jvm/procedure/host.lux
index d5a7bd3f5..c4bc66923 100644
--- a/new-luxc/source/luxc/lang/translation/jvm/procedure/host.lux
+++ b/new-luxc/source/luxc/lang/translation/jvm/procedure/host.lux
@@ -3,14 +3,14 @@
[abstract
["." monad (#+ do)]]
[control
- ["p" parser ("#@." monad)]
- ["ex" exception (#+ exception:)]]
+ ["ex" exception (#+ exception:)]
+ ["p" parser ("#@." monad)
+ ["l" text]]]
[data
["." product]
["." error]
["." text
- format
- ["l" lexer]]
+ format]
[collection
["." list ("#@." functor)]
["." dictionary (#+ Dictionary)]]]
@@ -602,7 +602,7 @@
(phase.throw extension.invalid-syntax [proc %synthesis inputs])))
(def: base-type
- (l.Lexer $.Type)
+ (l.Parser $.Type)
($_ p.either
(p.after (l.this "boolean") (p@wrap _t.boolean))
(p.after (l.this "byte") (p@wrap _t.byte))
@@ -618,7 +618,7 @@
))
(def: java-type
- (l.Lexer $.Type)
+ (l.Parser $.Type)
(do p.monad
[raw base-type
nesting (p.some (l.this "[]"))]