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.

---
 stdlib/source/program/aedifex/local.lux | 24 ++++++++++++------------
 1 file changed, 12 insertions(+), 12 deletions(-)

(limited to 'stdlib/source/program/aedifex/local.lux')

diff --git a/stdlib/source/program/aedifex/local.lux b/stdlib/source/program/aedifex/local.lux
index 60b5e8881..affbb659e 100644
--- a/stdlib/source/program/aedifex/local.lux
+++ b/stdlib/source/program/aedifex/local.lux
@@ -30,12 +30,12 @@
     ["." export]]]
   ["." // #_
    ["/" profile (#+ Profile)]
-   ["#." extension]
    ["#." pom]
    ["#." dependency (#+ Package Resolution Dependency)]
    ["#." hash]
    ["#." artifact (#+ Artifact)
-    ["#/." type]]])
+    ["#/." type]
+    ["#/." extension]]])
 
 (def: (local system)
   (All [a] (-> (file.System a) Path))
@@ -79,10 +79,10 @@
        #let [artifact-name (format repository (:: system separator) (//artifact.identity identity))]
        package (export.library system (set.to-list (get@ #/.sources profile)))
        _ (..save! system (binary.run tar.writer package)
-                  (format artifact-name "." //artifact/type.lux-library))
+                  (format artifact-name //artifact/extension.lux-library))
        pom (:: promise.monad wrap (//pom.project profile))]
       (..save! system (|> pom (:: xml.codec encode) encoding.to-utf8)
-               (format artifact-name //extension.pom)))
+               (format artifact-name //artifact/extension.pom)))
 
     _
     (:: promise.monad wrap (exception.throw /.no-identity []))))
@@ -96,16 +96,16 @@
                   (file.get-directory promise.monad system directory))
      _ (..save! system
                 (get@ #//dependency.library package)
-                (format prefix "." type))
+                (format prefix (//artifact/extension.extension type)))
      _ (..save! system
                 (encoding.to-utf8 (get@ #//dependency.sha1 package))
-                (format prefix //extension.sha1))
+                (format prefix //artifact/extension.sha1))
      _ (..save! system
                 (encoding.to-utf8 (get@ #//dependency.md5 package))
-                (format prefix //extension.md5))
+                (format prefix //artifact/extension.md5))
      _ (..save! system
                 (|> package (get@ #//dependency.pom) (:: xml.codec encode) encoding.to-utf8)
-                (format prefix //extension.pom))]
+                (format prefix //artifact/extension.pom))]
     (wrap [])))
 
 (def: #export (cache-all system resolution)
@@ -128,16 +128,16 @@
   (do (try.with promise.monad)
     [directory (..guarantee-repository! system artifact)
      #let [prefix (format directory (:: system separator) (//artifact.identity artifact))]
-     pom (..read! system (format prefix //extension.pom))
+     pom (..read! system (format prefix //artifact/extension.pom))
      [pom dependencies] (:: promise.monad wrap
                             (do try.monad
                               [pom (encoding.from-utf8 pom)
                                pom (:: xml.codec decode pom)
                                dependencies (//dependency.from-pom pom)]
                               (wrap [pom dependencies])))
-     library (..read! system (format prefix "." type))
-     sha1 (..read! system (format prefix //extension.sha1))
-     md5 (..read! system (format prefix //extension.md5))]
+     library (..read! system (format prefix (//artifact/extension.extension type)))
+     sha1 (..read! system (format prefix //artifact/extension.sha1))
+     md5 (..read! system (format prefix //artifact/extension.md5))]
     (wrap {#//dependency.library library
            #//dependency.pom pom
            #//dependency.dependencies dependencies
-- 
cgit v1.2.3