aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/program/aedifex/profile.lux
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/program/aedifex/profile.lux')
-rw-r--r--stdlib/source/program/aedifex/profile.lux36
1 files changed, 18 insertions, 18 deletions
diff --git a/stdlib/source/program/aedifex/profile.lux b/stdlib/source/program/aedifex/profile.lux
index 2ff458967..f4a1f9a0d 100644
--- a/stdlib/source/program/aedifex/profile.lux
+++ b/stdlib/source/program/aedifex/profile.lux
@@ -230,24 +230,24 @@
(def: (compose override baseline)
(template.let [(!runtime <tag> <runtime>)
- [(if (runtime\= <runtime> (get@ <tag> override))
- (get@ <tag> baseline)
- (get@ <tag> override))]]
- {#parents (list\compose (get@ #parents baseline) (get@ #parents override))
- #identity (maybe\compose (get@ #identity override) (get@ #identity baseline))
- #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)
- (get@ #target baseline))
- #program (maybe\compose (get@ #program override) (get@ #program baseline))
- #test (maybe\compose (get@ #test override) (get@ #test baseline))
- #deploy_repositories (dictionary.merged (get@ #deploy_repositories override) (get@ #deploy_repositories baseline))
+ [(if (runtime\= <runtime> (value@ <tag> override))
+ (value@ <tag> baseline)
+ (value@ <tag> override))]]
+ {#parents (list\compose (value@ #parents baseline) (value@ #parents override))
+ #identity (maybe\compose (value@ #identity override) (value@ #identity baseline))
+ #info (maybe\compose (value@ #info override) (value@ #info baseline))
+ #repositories (set.union (value@ #repositories baseline) (value@ #repositories override))
+ #dependencies (set.union (value@ #dependencies baseline) (value@ #dependencies override))
+ #compiler (if (dependency\= ..default_compiler (value@ #compiler override))
+ (value@ #compiler baseline)
+ (value@ #compiler override))
+ #sources (set.union (value@ #sources baseline) (value@ #sources override))
+ #target (if (text\= ..default_target (value@ #target baseline))
+ (value@ #target override)
+ (value@ #target baseline))
+ #program (maybe\compose (value@ #program override) (value@ #program baseline))
+ #test (maybe\compose (value@ #test override) (value@ #test baseline))
+ #deploy_repositories (dictionary.merged (value@ #deploy_repositories override) (value@ #deploy_repositories baseline))
#java (!runtime #java runtime.default_java)
#js (!runtime #js runtime.default_js)
#python (!runtime #python runtime.default_python)