aboutsummaryrefslogtreecommitdiff
path: root/new-luxc/source/luxc/module
diff options
context:
space:
mode:
Diffstat (limited to 'new-luxc/source/luxc/module')
-rw-r--r--new-luxc/source/luxc/module/descriptor/type.lux8
1 files changed, 4 insertions, 4 deletions
diff --git a/new-luxc/source/luxc/module/descriptor/type.lux b/new-luxc/source/luxc/module/descriptor/type.lux
index bcf44e5a2..6c5501e54 100644
--- a/new-luxc/source/luxc/module/descriptor/type.lux
+++ b/new-luxc/source/luxc/module/descriptor/type.lux
@@ -6,9 +6,9 @@
(text format
["l" lexer "l/" Monad<Lexer>])
[number]
- ["R" result]
+ ["e" error]
(coll [list "L/" Functor<List>]))
- [type "Type/" Eq<Type>])
+ (meta [type "type/" Eq<Type>]))
["&" ../common])
(do-template [<name> <code>]
@@ -33,7 +33,7 @@
(def: (encode-type type)
(-> Type Text)
(if (or (is Type type)
- (Type/= Type type))
+ (type/= Type type))
type-signal
(case type
(#;Host name params)
@@ -135,7 +135,7 @@
)))))
(def: (decode-type input)
- (-> Text (R;Result Type))
+ (-> Text (e;Error Type))
(|> type-decoder
(l;before l;end)
(l;run input)))