From 0952b1d1ca71089a092fde7758481ba4de71e151 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 31 Oct 2021 22:04:59 -0400
Subject: Properly inheriting the default profile in Aedifex.

---
 stdlib/source/program/aedifex.lux       | 1 -
 stdlib/source/program/aedifex/cli.lux   | 2 +-
 stdlib/source/program/aedifex/input.lux | 2 +-
 3 files changed, 2 insertions(+), 3 deletions(-)

(limited to 'stdlib/source/program')

diff --git a/stdlib/source/program/aedifex.lux b/stdlib/source/program/aedifex.lux
index 9017c8c19..e61b08397 100644
--- a/stdlib/source/program/aedifex.lux
+++ b/stdlib/source/program/aedifex.lux
@@ -45,7 +45,6 @@
    ["[1][0]" action {"+" Action}]
    ["[1][0]" project {"+" Project}]
    ["[1][0]" input]
-   ["[1][0]" parser]
    ["[1][0]" pom]
    ["[1][0]" cli]
    ["[1][0]" dependency "_"
diff --git a/stdlib/source/program/aedifex/cli.lux b/stdlib/source/program/aedifex/cli.lux
index dc91daff0..2bcf90338 100644
--- a/stdlib/source/program/aedifex/cli.lux
+++ b/stdlib/source/program/aedifex/cli.lux
@@ -98,6 +98,6 @@
                      [head cli.any
                       [tail command] command]
                      (in [{.#Item head tail} command])))
-         (# <>.monad each (|>> [(list /.default)])
+         (# <>.monad each (|>> [(list)])
             ..command')
          ))))
diff --git a/stdlib/source/program/aedifex/input.lux b/stdlib/source/program/aedifex/input.lux
index 669ef3aa8..c824e7497 100644
--- a/stdlib/source/program/aedifex/input.lux
+++ b/stdlib/source/program/aedifex/input.lux
@@ -58,5 +58,5 @@
            (do [! try.monad]
              [it it
               it (..project_parser it)
-              it (monad.each ! (//project.profile it) profiles)]
+              it (monad.each ! (//project.profile it) (list& //profile.default profiles))]
              (in (mix.with_monoid //profile.monoid list.mix it)))))))
-- 
cgit v1.2.3