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/input.lux | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

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