From 2431e767a09894c2f685911ba7f1ba0b7de2a165 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Tue, 13 Jul 2021 02:41:45 -0400
Subject: Improved the XML parsing library.

---
 stdlib/source/program/aedifex/artifact/snapshot.lux | 14 ++++++--------
 1 file changed, 6 insertions(+), 8 deletions(-)

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

diff --git a/stdlib/source/program/aedifex/artifact/snapshot.lux b/stdlib/source/program/aedifex/artifact/snapshot.lux
index 836365fed..89897316d 100644
--- a/stdlib/source/program/aedifex/artifact/snapshot.lux
+++ b/stdlib/source/program/aedifex/artifact/snapshot.lux
@@ -49,10 +49,9 @@
 
 (def: local_copy_parser
   (Parser Any)
-  (do <>.monad
-    [_ (<xml>.node ..<local_copy>)]
-    (<xml>.children (<text>.embed (<text>.this ..local_copy_value)
-                                  <xml>.text))))
+  (<| (<xml>.node ..<local_copy>)
+      (<text>.embed (<text>.this ..local_copy_value))
+      <xml>.text))
 
 (def: #export (format snapshot)
   (-> Snapshot XML)
@@ -66,7 +65,6 @@
 
 (def: #export parser
   (Parser Snapshot)
-  (do <>.monad
-    [_ (<xml>.node <snapshot>)]
-    (<xml>.children (<>.or ..local_copy_parser
-                           /stamp.parser))))
+  (<| (<xml>.node <snapshot>)
+      (<>.or ..local_copy_parser
+             /stamp.parser)))
-- 
cgit v1.2.3