From 9f039e8a0a09e0278547d697efa018cd3fd68672 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 30 Jul 2021 01:12:05 -0400
Subject: More renamings.

---
 stdlib/source/program/aedifex/pom.lux | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

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

diff --git a/stdlib/source/program/aedifex/pom.lux b/stdlib/source/program/aedifex/pom.lux
index 145d65f6e..e37bbe0e9 100644
--- a/stdlib/source/program/aedifex/pom.lux
+++ b/stdlib/source/program/aedifex/pom.lux
@@ -114,7 +114,7 @@
     (-> /.Developer (List XML))
     (list& (..property "name" name)
            (..property "email" email)
-           (|> organization (maybe\map ..developer_organization) (maybe.default (list)))))
+           (|> organization (maybe\map ..developer_organization) (maybe.else (list)))))
 
   (template [<name> <type> <tag>]
     [(def: <name>
@@ -177,12 +177,12 @@
                                        #//artifact.name artifact
                                        #//artifact.version (|> properties
                                                                (dictionary.get ["" ..version_tag])
-                                                               (maybe.default "")
+                                                               (maybe.else "")
                                                                (text.replace_all "${project.version}" own_version)
                                                                (text.replace_all "${project.parent.version}" parent_version))}
                #//dependency.type (|> properties
                                       (dictionary.get ["" "type"])
-                                      (maybe.default //artifact/type.jvm_library))})))))
+                                      (maybe.else //artifact/type.jvm_library))})))))
 
 (def: (dependencies_parser own_version parent_version)
   (-> Text Text (Parser (List Dependency)))
@@ -213,16 +213,16 @@
 (def: #export parser
   (Parser /.Profile)
   (do {! <>.monad}
-    [own_version (<>.default "" (<xml>.somewhere ..own_version))
-     parent_version (<>.default "" (<xml>.somewhere ..parent_version))]
+    [own_version (<>.else "" (<xml>.somewhere ..own_version))
+     parent_version (<>.else "" (<xml>.somewhere ..parent_version))]
     (<| (<xml>.node ["" ..project_tag])
         (do !
           [dependencies (|> (..dependencies_parser own_version parent_version)
                             <xml>.somewhere
-                            (<>.default (list)))
+                            (<>.else (list)))
            repositories (|> ..repositories_parser
                             <xml>.somewhere
-                            (<>.default (list)))
+                            (<>.else (list)))
            _ (<>.some <xml>.ignore)]
           (in (|> (\ /.monoid identity)
                   (update@ #/.dependencies (function (_ empty)
-- 
cgit v1.2.3