From 17e7566be51df5e428a6b10e6469201a8a9468da Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sat, 7 Aug 2021 02:20:09 -0400
Subject: Made the be/de macros for (co)monadic expression extensible.

---
 stdlib/source/test/aedifex/cache.lux | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'stdlib/source/test/aedifex/cache.lux')

diff --git a/stdlib/source/test/aedifex/cache.lux b/stdlib/source/test/aedifex/cache.lux
index 614420fde..07d39f00f 100644
--- a/stdlib/source/test/aedifex/cache.lux
+++ b/stdlib/source/test/aedifex/cache.lux
@@ -54,7 +54,7 @@
 (def: profile
   (Random [Artifact Profile XML])
   (random.one (function (_ profile)
-                (try.to_maybe
+                (try.maybe
                  (do try.monad
                    [pom (//pom.write profile)
                     identity (try.of_maybe (get@ #//.identity profile))]
@@ -82,7 +82,7 @@
   (do {! random.monad}
     [[main_dependency main_package] ..package
      dependencies (|> (//package.dependencies main_package)
-                      (\ try.monad map set.to_list)
+                      (\ try.monad map set.list)
                       (try.else (list))
                       (monad.map ! (function (_ dependency)
                                      (do !
@@ -91,7 +91,7 @@
                                                               (set@ #//.dependencies (set.empty //dependency.hash))
                                                               (set@ #//.identity (#.Some (get@ #//dependency.artifact dependency)))
                                                               //pom.write
-                                                              try.to_maybe))
+                                                              try.maybe))
                                                         ..profile)
                                         content ..content]
                                        (in [dependency
@@ -104,7 +104,7 @@
     [[dependency expected_package] ..package
      home (random.ascii/alpha 5)
      working_directory (random.ascii/alpha 5)
-     #let [fs (: (file.System Async)
+     .let [fs (: (file.System Async)
                  (file.mock (\ file.default separator)))
            program (program.async (program.mock environment.empty home working_directory))]]
     (in (do async.monad
@@ -125,7 +125,7 @@
     [expected ..resolution
      home (random.ascii/alpha 5)
      working_directory (random.ascii/alpha 5)
-     #let [fs (: (file.System Async)
+     .let [fs (: (file.System Async)
                  (file.mock (\ file.default separator)))
            program (program.async (program.mock environment.empty home working_directory))]]
     (in (do async.monad
-- 
cgit v1.2.3