From abe24425ced15fd784ef6c62d6f186af72b491db Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 11 Jul 2021 01:51:04 -0400
Subject: Re-named ":coerce" to ":as" since it technically doesn't do
 coercions.

---
 stdlib/source/program/aedifex/profile.lux | 19 ++++++++++++++++---
 1 file changed, 16 insertions(+), 3 deletions(-)

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

diff --git a/stdlib/source/program/aedifex/profile.lux b/stdlib/source/program/aedifex/profile.lux
index eb686cc15..d31d0aca9 100644
--- a/stdlib/source/program/aedifex/profile.lux
+++ b/stdlib/source/program/aedifex/profile.lux
@@ -22,11 +22,17 @@
       [archive
        [descriptor (#+ Module)]]]]]]
   [//
-   ["." artifact (#+ Artifact)]
-   ["." dependency]
+   ["." dependency (#+ Dependency) ("#\." equivalence)]
+   ["." artifact (#+ Artifact)
+    ["." type]]
    [repository
     [remote (#+ Address)]]])
 
+(def: #export default_compiler
+  Dependency
+  {#dependency.artifact ["com.github.luxlang" "lux-jvm" "0.6.0-SNAPSHOT"]
+   #dependency.type type.jvm_library})
+
 (type: #export Distribution
   #Repo
   #Manual)
@@ -148,7 +154,8 @@
    #identity (Maybe Artifact)
    #info (Maybe Info)
    #repositories (Set Address)
-   #dependencies (Set dependency.Dependency)
+   #dependencies (Set Dependency)
+   #compiler Dependency
    #sources (Set Source)
    #target Target
    #program (Maybe Module)
@@ -168,6 +175,8 @@
       set.equivalence
       ## #dependencies
       set.equivalence
+      ## #compiler
+      dependency.equivalence
       ## #sources
       set.equivalence
       ## #target
@@ -188,6 +197,7 @@
      #info #.None
      #repositories (set.new text.hash)
      #dependencies (set.new dependency.hash)
+     #compiler default_compiler
      #sources (set.new text.hash)
      #target ..default_target
      #program #.None
@@ -200,6 +210,9 @@
      #info (maybe\compose (get@ #info override) (get@ #info baseline))
      #repositories (set.union (get@ #repositories baseline) (get@ #repositories override))
      #dependencies (set.union (get@ #dependencies baseline) (get@ #dependencies override))
+     #compiler (if (dependency\= ..default_compiler (get@ #compiler override))
+                 (get@ #compiler baseline)
+                 (get@ #compiler override))
      #sources (set.union (get@ #sources baseline) (get@ #sources override))
      #target (if (text\= ..default_target (get@ #target baseline))
                (get@ #target override)
-- 
cgit v1.2.3