From 723fa29e5ceb2f7ee4a13632ccfe3acf5e8808c2 Mon Sep 17 00:00:00 2001 From: Jan Tuomi Date: Thu, 8 Dec 2022 13:16:16 +0200 Subject: Add :tag AST, refactor core to use it --- core/result.milch | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) (limited to 'core/result.milch') diff --git a/core/result.milch b/core/result.milch index 897a540..f122ee6 100644 --- a/core/result.milch +++ b/core/result.milch @@ -6,20 +6,20 @@ (let Result/map (\[f m] (match (kind m) - "Result/Ok" (Result/ok (f (Result/Ok/get-value m))) - "Result/Ex" m))) + :Result/Ok (Result/ok (f (Result/Ok/get-value m))) + :Result/Ex m))) (let Result/map-ex (\[f m] (match (kind m) - "Result/Ok" m - "Result/Ex" (Result/ex (f (Result/Ex/get-value m)))))) + :Result/Ok m + :Result/Ex (Result/ex (f (Result/Ex/get-value m)))))) (let Result/and-then (\[f m] (match (kind m) - "Result/Ok" (f (Result/Ok/get-value m)) - "Result/Ex" m))) + :Result/Ok (f (Result/Ok/get-value m)) + :Result/Ex m))) (let Result/try (\[catch-f m] (match (kind m) - "Result/Ok" (Result/Ok/get-value m) - "Result/Ex" (catch-f (Result/Ex/get-value m))))) + :Result/Ok (Result/Ok/get-value m) + :Result/Ex (catch-f (Result/Ex/get-value m))))) -- cgit v1.3