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.

---
 .../source/program/aedifex/metadata/artifact.lux   | 32 +++++++++++-----------
 1 file changed, 16 insertions(+), 16 deletions(-)

(limited to 'stdlib/source/program/aedifex/metadata/artifact.lux')

diff --git a/stdlib/source/program/aedifex/metadata/artifact.lux b/stdlib/source/program/aedifex/metadata/artifact.lux
index 55659f391..777c7df1b 100644
--- a/stdlib/source/program/aedifex/metadata/artifact.lux
+++ b/stdlib/source/program/aedifex/metadata/artifact.lux
@@ -135,11 +135,11 @@
 
 (def: last_updated_parser
   (Parser Instant)
-  (<text>.embed (do <>.monad
-                  [date ..date_parser
-                   time ..time_parser]
-                  (wrap (instant.of_date_time date time)))
-                (..text ..<last_updated>)))
+  (<text>.then (do <>.monad
+                 [date ..date_parser
+                  time ..time_parser]
+                 (in (instant.of_date_time date time)))
+               (..text ..<last_updated>)))
 
 (def: #export parser
   (Parser Metadata)
@@ -178,19 +178,19 @@
     [project (\ repository download (..uri artifact))]
     (case project
       (#try.Success project)
-      (wrap (|> project
-                (do> try.monad
-                     [(\ utf8.codec decode)]
-                     [(\ xml.codec decode)]
-                     [list (<xml>.run ..parser)])))
+      (in (|> project
+              (do> try.monad
+                   [(\ utf8.codec decode)]
+                   [(\ xml.codec decode)]
+                   [list (<xml>.run ..parser)])))
       
       (#try.Failure error)
-      (wrap (#try.Success
-             (let [(^slots [#///artifact.group #///artifact.name]) artifact]
-               {#group group
-                #name name
-                #versions (list)
-                #last_updated ..epoch}))))))
+      (in (#try.Success
+           (let [(^slots [#///artifact.group #///artifact.name]) artifact]
+             {#group group
+              #name name
+              #versions (list)
+              #last_updated ..epoch}))))))
 
 (def: #export (write repository artifact metadata)
   (-> (Repository Async) Artifact Metadata (Async (Try Any)))
-- 
cgit v1.2.3