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/program/aedifex/dependency/deployment.lux |  4 ++--
 stdlib/source/program/aedifex/dependency/resolution.lux | 10 +++++-----
 2 files changed, 7 insertions(+), 7 deletions(-)

(limited to 'stdlib/source/program/aedifex/dependency')

diff --git a/stdlib/source/program/aedifex/dependency/deployment.lux b/stdlib/source/program/aedifex/dependency/deployment.lux
index a6302d5f0..2b39403a9 100644
--- a/stdlib/source/program/aedifex/dependency/deployment.lux
+++ b/stdlib/source/program/aedifex/dependency/deployment.lux
@@ -91,7 +91,7 @@
   (do try.monad
     [now (: (Try ///artifact/time.Time)
             (///artifact/time.of_instant now))
-     #let [version_template (get@ #///artifact.version artifact)
+     .let [version_template (get@ #///artifact.version artifact)
            snapshot (|> snapshot
                         (update@ [#///metadata/snapshot.versioning #///artifact/versioning.snapshot]
                                  (function (_ snapshot)
@@ -119,7 +119,7 @@
   (-> (Repository Async) Dependency Package (Async (Try Artifact)))
   (do {! async.monad}
     [now (async.future instant.now)
-     #let [version_template (get@ #///artifact.version artifact)]]
+     .let [version_template (get@ #///artifact.version artifact)]]
     (do (try.with !)
       [_ (with_status repository version_template [artifact type] (get@ #///package.library package))
 
diff --git a/stdlib/source/program/aedifex/dependency/resolution.lux b/stdlib/source/program/aedifex/dependency/resolution.lux
index a48909375..c286c92c2 100644
--- a/stdlib/source/program/aedifex/dependency/resolution.lux
+++ b/stdlib/source/program/aedifex/dependency/resolution.lux
@@ -6,7 +6,7 @@
     [abstract
      [codec (#+ Codec)]
      [equivalence (#+ Equivalence)]
-     [monad (#+ Monad do)]]
+     [monad (#+ do)]]
     [control
      ["." try (#+ Try) ("#\." functor)]
      ["." exception (#+ Exception exception:)]
@@ -128,7 +128,7 @@
         extension (///artifact/extension.extension type)]
     (do (try.with async.monad)
       [snapshot (///metadata/snapshot.read repository artifact)
-       #let [version_template (get@ [#///metadata/snapshot.artifact #///artifact.version] snapshot)
+       .let [version_template (get@ [#///metadata/snapshot.artifact #///artifact.version] snapshot)
              artifact_version (value.format {#value.version version_template
                                              #value.snapshot (get@ [#///metadata/snapshot.versioning #///artifact/versioning.snapshot] snapshot)})
              artifact (set@ #///artifact.version artifact_version artifact)]
@@ -230,14 +230,14 @@
             (case ?package
               (#try.Success package)
               (do !
-                [#let [sub_dependencies (|> package
+                [.let [sub_dependencies (|> package
                                             ///package.dependencies
-                                            (try\map set.to_list)
+                                            (try\map set.list)
                                             (try.else (list)))
                        ## For security reasons, it's not a good idea to allow dependencies to introduce repositories.
                        ## package_repositories (|> package
                        ##                          ///package.repositories
-                       ##                          (try\map set.to_list)
+                       ##                          (try\map set.list)
                        ##                          (try.else (list))
                        ##                          (list\map new_repository))
                        ## sub_repositories (list\compose repositories package_repositories)
-- 
cgit v1.2.3