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/pom.lux | 58 +++++++++++++++---------------
 1 file changed, 29 insertions(+), 29 deletions(-)

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

diff --git a/stdlib/source/test/aedifex/command/pom.lux b/stdlib/source/test/aedifex/command/pom.lux
index 4ee1c49f4..ebc0ae09e 100644
--- a/stdlib/source/test/aedifex/command/pom.lux
+++ b/stdlib/source/test/aedifex/command/pom.lux
@@ -36,35 +36,35 @@
       (do random.monad
         [sample @profile.random
          #let [fs (file.mock (\ file.default separator))]]
-        (wrap (do {! async.monad}
-                [#let [console (@version.echo "")]
-                 outcome (/.do! console fs sample)]
-                (case outcome
-                  (#try.Success _)
-                  (do !
-                    [verdict (do ///action.monad
-                               [expected (|> (///pom.write sample)
-                                             (try\map (|>> (\ xml.codec encode)
-                                                           (\ utf8.codec encode)))
-                                             (\ ! wrap))
-                                actual (\ fs read ///pom.file)
+        (in (do {! async.monad}
+              [#let [console (@version.echo "")]
+               outcome (/.do! console fs sample)]
+              (case outcome
+                (#try.Success _)
+                (do !
+                  [verdict (do ///action.monad
+                             [expected (|> (///pom.write sample)
+                                           (try\map (|>> (\ xml.codec encode)
+                                                         (\ utf8.codec encode)))
+                                           (\ ! in))
+                              actual (\ fs read ///pom.file)
 
-                                logging! (\ ///action.monad map
-                                            (text\= /.success)
-                                            (\ console read_line []))
+                              logging! (\ ///action.monad map
+                                          (text\= /.success)
+                                          (\ console read_line []))
 
-                                #let [expected_content!
-                                      (binary\= expected actual)]]
-                               (wrap (and logging!
-                                          expected_content!)))]
-                    (_.cover' [/.do! /.success]
-                              (try.default false verdict)))
-                  
-                  (#try.Failure error)
-                  (_.cover' [/.do!]
-                            (case (get@ #///.identity sample)
-                              (#.Some _)
-                              false
+                              #let [expected_content!
+                                    (binary\= expected actual)]]
+                             (in (and logging!
+                                      expected_content!)))]
+                  (_.cover' [/.do! /.success]
+                            (try.default false verdict)))
+                
+                (#try.Failure error)
+                (_.cover' [/.do!]
+                          (case (get@ #///.identity sample)
+                            (#.Some _)
+                            false
 
-                              #.None
-                              true))))))))
+                            #.None
+                            true))))))))
-- 
cgit v1.2.3