Gave the Location type its own module.

1 files changed, 37 insertions, 0 deletions

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"))