From 440608bc32916329c9f3c0f2bd9a8d1152ed5da8 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 14 Oct 2020 21:48:00 -0400
Subject: Gave the Location type its own module.

---
 .../source/program/aedifex/artifact/extension.lux  | 37 ++++++++++++++++++++++
 1 file changed, 37 insertions(+)
 create mode 100644 stdlib/source/program/aedifex/artifact/extension.lux

(limited to 'stdlib/source/program/aedifex/artifact')

diff --git a/stdlib/source/program/aedifex/artifact/extension.lux b/stdlib/source/program/aedifex/artifact/extension.lux
new file mode 100644
index 000000000..04d40fec4
--- /dev/null
+++ b/stdlib/source/program/aedifex/artifact/extension.lux
@@ -0,0 +1,37 @@
+(.module:
+  [lux #*
+   [data
+    [text
+     ["%" format (#+ format)]]]]
+  ["." // #_
+   ["#" type]])
+
+(type: #export Extension
+  Text)
+
+(def: separator
+  ".")
+
+(def: #export extension
+  (-> //.Type Extension)
+  (|>> (format ..separator)))
+
+(def: #export lux-library
+  Extension
+  (..extension //.lux-library))
+
+(def: #export jvm-library
+  Extension
+  (..extension //.jvm-library))
+
+(def: #export pom
+  Extension
+  (..extension //.pom))
+
+(def: #export sha1
+  Extension
+  (format ..separator "sha1"))
+
+(def: #export md5
+  Extension
+  (format ..separator "md5"))
-- 
cgit v1.2.3