ADDED Can pass config parameters to compiler and select code based on it. Can also select code based on compiler version.

2 files changed, 42 insertions, 42 deletions

diff --git a/stdlib/source/program/aedifex/repository/identity.lux b/stdlib/source/program/aedifex/repository/identity.lux
index 6e058850d..8288f2d74 100644
--- a/stdlib/source/program/aedifex/repository/identity.lux
+++ b/stdlib/source/program/aedifex/repository/identity.lux
@@ -1,15 +1,15 @@
 (.using
-  [library
-   [lux "*"
-    ["[0]" ffi {"+" import:}]
-    [abstract
-     [equivalence {"+" Equivalence}]]
-    [data
-     ["[0]" product]
-     ["[0]" text
-      ["%" format {"+" format}]
-      [encoding
-       ["[0]" utf8]]]]]])
+ [library
+  [lux "*"
+   ["[0]" ffi {"+" import:}]
+   [abstract
+    [equivalence {"+" Equivalence}]]
+   [data
+    ["[0]" product]
+    ["[0]" text
+     ["%" format {"+" format}]
+     [encoding
+      ["[0]" utf8]]]]]])
 
 (type: .public User
   Text)
@@ -42,4 +42,5 @@
   (let [credentials (# utf8.codec encoded (format user ":" password))]
     (|> (java/util/Base64::getEncoder)
         (java/util/Base64$Encoder::encodeToString credentials)
+        ffi.of_string
         (format "Basic "))))
diff --git a/stdlib/source/program/aedifex/repository/remote.lux b/stdlib/source/program/aedifex/repository/remote.lux
index 9e50e71a6..7f1a735b8 100644
--- a/stdlib/source/program/aedifex/repository/remote.lux
+++ b/stdlib/source/program/aedifex/repository/remote.lux
@@ -1,34 +1,33 @@
 (.using
-  [library
-   [lux "*"
-    [abstract
-     [monad {"+" do}]]
-    [control
-     ["[0]" io {"+" IO}]
-     ["[0]" try {"+" Try}]
-     ["[0]" exception {"+" exception:}]]
-    [data
-     ["[0]" product]
-     [text
-      ["%" format {"+" format}]]]
-    [tool
-     [compiler
-      ["[0]" version]
-      ["[0]" language "_"
-       ["[1]/[0]" lux "_"
-        ["[1]" version]]]]]
-    [world
-     [net {"+" URL}
-      [uri {"+" URI}]
-      ["[0]" http "_"
-       ["[1]" client]
-       ["[1]/[0]" status]
-       ["@[1]" /]]]]]]
-  ["[0]" //
-   ["[1][0]" identity {"+" Identity}]
-   ["/[1]" // "_"
-    ["[1][0]" artifact {"+" Version Artifact}
-     [extension {"+" Extension}]]]])
+ [library
+  [lux "*"
+   [abstract
+    [monad {"+" do}]]
+   [control
+    ["[0]" io {"+" IO}]
+    ["[0]" try {"+" Try}]
+    ["[0]" exception {"+" exception:}]]
+   [data
+    ["[0]" product]
+    [text
+     ["%" format {"+" format}]]]
+   ["[0]" meta "_"
+    ["[1]/[0]" version]]
+   [tool
+    [compiler
+     ["[0]" version]]]
+   [world
+    [net {"+" URL}
+     [uri {"+" URI}]
+     ["[0]" http "_"
+      ["[1]" client]
+      ["[1]/[0]" status]
+      ["@[1]" /]]]]]]
+ ["[0]" //
+  ["[1][0]" identity {"+" Identity}]
+  ["/[1]" // "_"
+   ["[1][0]" artifact {"+" Version Artifact}
+    [extension {"+" Extension}]]]])
 
 (type: .public Address
   URL)
@@ -49,7 +48,7 @@
   (format (///artifact.uri version_template artifact) extension))
 
 (def: .public user_agent
-  (format "LuxAedifex/" (version.format language/lux.version)))
+  (format "LuxAedifex/" (version.format meta/version.latest)))
 
 (def: base_headers
   (List [Text Text])