Refactored "export" common syntax.

1 files changed, 42 insertions, 0 deletions

diff --git a/stdlib/source/program/aedifex/repository/identity.lux b/stdlib/source/program/aedifex/repository/identity.lux
new file mode 100644
index 000000000..fbc93f367
--- /dev/null
+++ b/stdlib/source/program/aedifex/repository/identity.lux
@@ -0,0 +1,42 @@
+(.module:
+  [lux #*
+   ["." host (#+ import:)]
+   [abstract
+    [equivalence (#+ Equivalence)]]
+   [data
+    ["." product]
+    ["." text
+     ["%" format (#+ format)]
+     ["." encoding]]]])
+
+(type: #export User
+  Text)
+
+(type: #export Password
+  Text)
+
+(type: #export Identity
+  {#user User
+   #password Password})
+
+(def: #export equivalence
+  (Equivalence Identity)
+  ($_ product.equivalence
+      text.equivalence
+      text.equivalence
+      ))
+
+(import: java/util/Base64$Encoder
+  ["#::."
+   (encodeToString [[byte]] java/lang/String)])
+
+(import: java/util/Base64
+  ["#::."
+   (#static getEncoder [] java/util/Base64$Encoder)])
+
+(def: #export (basic-auth user password)
+  (-> User Password Text)
+  (let [credentials (\ encoding.utf8 encode (format user ":" password))]
+    (|> (java/util/Base64::getEncoder)
+        (java/util/Base64$Encoder::encodeToString credentials)
+        (format "Basic "))))