From cff5a0dfa89ab3a7f95512382cedf88f8e1709d1 Mon Sep 17 00:00:00 2001
From: Jan Tuomi <jans.tuomi@gmail.com>
Date: Fri, 9 Dec 2022 18:16:41 +0200
Subject: Fix purity issue

---
 examples/try.milch | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

(limited to 'examples/try.milch')

diff --git a/examples/try.milch b/examples/try.milch
index 68d6cc2..561e716 100644
--- a/examples/try.milch
+++ b/examples/try.milch
@@ -1,6 +1,15 @@
 (import "core/common")
 (import "core/result")
 
+(let safe-read-file! (Result/safe! read-file!))
+
 ; calls read-file! and wraps the result in a Result/ok on success
 ; in case of error, calls Result/ex on the error string
-(try! Result/ex (. Result/ok read-file!) "does-not-exist.txt")
+(safe-read-file! "does-not-exist.txt")
+(try! Result/ex (.! Result/ok read-file!) "examples/aoc22_1.txt")
+
+(let pure-fn (\[x]
+    (concat "foo" x)))
+
+(print! (pure-fn "bar\n"))
+(print! "nice\n")
-- 
cgit v1.3