From 901b09dada43ec6f3b21618800ec7400fda54a0d Mon Sep 17 00:00:00 2001 From: Eduardo Julian Date: Wed, 18 Oct 2017 12:42:46 -0400 Subject: - Updated to the latest changes in stdlib. --- new-luxc/source/luxc/module/descriptor/type.lux | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'new-luxc/source/luxc/module/descriptor/type.lux') 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]) [number] - ["R" result] + ["e" error] (coll [list "L/" Functor])) - [type "Type/" Eq]) + (meta [type "type/" Eq])) ["&" ../common]) (do-template [ ] @@ -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))) -- cgit v1.2.3