aboutsummaryrefslogtreecommitdiff
path: root/new-luxc/source/luxc/module/descriptor
diff options
context:
space:
mode:
authorEduardo Julian2017-10-18 12:42:46 -0400
committerEduardo Julian2017-10-18 12:42:46 -0400
commit901b09dada43ec6f3b21618800ec7400fda54a0d (patch)
treed62dde3df2ce4fd7d7cd8d0b177f6592f87817cb /new-luxc/source/luxc/module/descriptor
parent14e381de130f0c8d3e333cf0523c6c98b9aa84b1 (diff)
- Updated to the latest changes in stdlib.
Diffstat (limited to 'new-luxc/source/luxc/module/descriptor')
-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)))