From 061fd8a209bbcaffc2bfb850ac6046752a567d50 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Tue, 27 Jul 2021 03:51:10 -0400
Subject: Re-named wrap => in && unwrap => out.

---
 stdlib/source/test/aedifex/command/deploy.lux | 88 +++++++++++++--------------
 1 file changed, 44 insertions(+), 44 deletions(-)

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

diff --git a/stdlib/source/test/aedifex/command/deploy.lux b/stdlib/source/test/aedifex/command/deploy.lux
index e2f7cfa4a..41a997d6f 100644
--- a/stdlib/source/test/aedifex/command/deploy.lux
+++ b/stdlib/source/test/aedifex/command/deploy.lux
@@ -67,8 +67,8 @@
          (random.one (function (_ profile)
                        (do maybe.monad
                          [artifact (get@ #///.identity profile)
-                          expected_pom (try.to_maybe (///pom.write profile))]
-                         (wrap [artifact expected_pom profile])))
+                          expected_pom (try.maybe (///pom.write profile))]
+                         (in [artifact expected_pom profile])))
                      $profile.random)
          
          home (random.ascii/alpha 5)
@@ -77,52 +77,52 @@
                                               $repository.empty)
                fs (file.mock (\ file.default separator))
                program (program.async (program.mock environment.empty home working_directory))]]
-        (wrap (do {! async.monad}
-                [verdict (do {! ///action.monad}
-                           [logging (..execute! program repository fs artifact profile)
-                            expected_library (|> profile
-                                                 (get@ #///.sources)
-                                                 set.to_list
-                                                 (export.library fs)
-                                                 (\ ! map (format.run tar.writer)))
+        (in (do {! async.monad}
+              [verdict (do {! ///action.monad}
+                         [logging (..execute! program repository fs artifact profile)
+                          expected_library (|> profile
+                                               (get@ #///.sources)
+                                               set.to_list
+                                               (export.library fs)
+                                               (\ ! map (format.run tar.writer)))
 
-                            actual_pom (\ repository download (///repository/remote.uri (get@ #///artifact.version artifact) artifact ///artifact/extension.pom))
-                            actual_library (\ repository download (///repository/remote.uri (get@ #///artifact.version artifact) artifact ///artifact/extension.lux_library))
-                            actual_sha-1 (\ repository download (///repository/remote.uri (get@ #///artifact.version artifact) artifact (format ///artifact/extension.lux_library ///artifact/extension.sha-1)))
-                            actual_sha-1 (\ async.monad wrap
-                                            (do try.monad
-                                              [actual_sha-1 (\ utf8.codec decode actual_sha-1)]
-                                              (\ ///hash.sha-1_codec decode actual_sha-1)))
-                            actual_md5 (\ repository download (///repository/remote.uri (get@ #///artifact.version artifact) artifact (format ///artifact/extension.lux_library ///artifact/extension.md5)))
-                            actual_md5 (\ async.monad wrap
+                          actual_pom (\ repository download (///repository/remote.uri (get@ #///artifact.version artifact) artifact ///artifact/extension.pom))
+                          actual_library (\ repository download (///repository/remote.uri (get@ #///artifact.version artifact) artifact ///artifact/extension.lux_library))
+                          actual_sha-1 (\ repository download (///repository/remote.uri (get@ #///artifact.version artifact) artifact (format ///artifact/extension.lux_library ///artifact/extension.sha-1)))
+                          actual_sha-1 (\ async.monad in
                                           (do try.monad
-                                            [actual_md5 (\ utf8.codec decode actual_md5)]
-                                            (\ ///hash.md5_codec decode actual_md5)))
+                                            [actual_sha-1 (\ utf8.codec decode actual_sha-1)]
+                                            (\ ///hash.sha-1_codec decode actual_sha-1)))
+                          actual_md5 (\ repository download (///repository/remote.uri (get@ #///artifact.version artifact) artifact (format ///artifact/extension.lux_library ///artifact/extension.md5)))
+                          actual_md5 (\ async.monad in
+                                        (do try.monad
+                                          [actual_md5 (\ utf8.codec decode actual_md5)]
+                                          (\ ///hash.md5_codec decode actual_md5)))
 
-                            #let [succeeded!
-                                  (text\= /.success logging)
+                          #let [succeeded!
+                                (text\= /.success logging)
 
-                                  deployed_library!
-                                  (binary\= expected_library
-                                            actual_library)
+                                deployed_library!
+                                (binary\= expected_library
+                                          actual_library)
 
-                                  deployed_pom!
-                                  (binary\= (|> expected_pom (\ xml.codec encode) (\ utf8.codec encode))
-                                            actual_pom)
+                                deployed_pom!
+                                (binary\= (|> expected_pom (\ xml.codec encode) (\ utf8.codec encode))
+                                          actual_pom)
 
-                                  deployed_sha-1!
-                                  (\ ///hash.equivalence =
-                                     (///hash.sha-1 expected_library)
-                                     actual_sha-1)
+                                deployed_sha-1!
+                                (\ ///hash.equivalence =
+                                   (///hash.sha-1 expected_library)
+                                   actual_sha-1)
 
-                                  deployed_md5!
-                                  (\ ///hash.equivalence =
-                                     (///hash.md5 expected_library)
-                                     actual_md5)]]
-                           (wrap (and succeeded!
-                                      deployed_library!
-                                      deployed_pom!
-                                      deployed_sha-1!
-                                      deployed_md5!)))]
-                (_.cover' [/.do! /.success]
-                          (try.default false verdict)))))))
+                                deployed_md5!
+                                (\ ///hash.equivalence =
+                                   (///hash.md5 expected_library)
+                                   actual_md5)]]
+                         (in (and succeeded!
+                                  deployed_library!
+                                  deployed_pom!
+                                  deployed_sha-1!
+                                  deployed_md5!)))]
+              (_.cover' [/.do! /.success]
+                        (try.default false verdict)))))))
-- 
cgit v1.2.3