From 8bd1d1b3a4750b26f1540717839c1aa196f2a520 Mon Sep 17 00:00:00 2001 From: Eduardo Julian Date: Wed, 17 May 2017 20:23:02 -0400 Subject: - Renamed "Error" to "Result". --- new-luxc/source/luxc/parser.lux | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'new-luxc/source/luxc/parser.lux') diff --git a/new-luxc/source/luxc/parser.lux b/new-luxc/source/luxc/parser.lux index d76050860..5cd6299fc 100644 --- a/new-luxc/source/luxc/parser.lux +++ b/new-luxc/source/luxc/parser.lux @@ -31,7 +31,7 @@ (data [bool] [char] [text] - ["E" error #*] + ["R" result] [number] (text ["l" lexer #+ Lexer Monad "l/" Monad] format) @@ -549,10 +549,10 @@ ))) (def: #export (parse [where code]) - (-> [Cursor Text] (Error [[Cursor Text] Code])) + (-> [Cursor Text] (R;Result [[Cursor Text] Code])) (case (l;run' code (parse-ast where)) - (#E;Error error) - (#E;Error error) + (#R;Error error) + (#R;Error error) - (#E;Success [remaining [where' output]]) - (#E;Success [[where' remaining] output]))) + (#R;Success [remaining [where' output]]) + (#R;Success [[where' remaining] output]))) -- cgit v1.2.3