From f621a133e6e0a516c0586270fea8eaffb4829d82 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 8 Aug 2021 17:56:15 -0400
Subject: No more #export magic syntax.

---
 stdlib/source/program/aedifex/dependency/deployment.lux |  4 ++--
 stdlib/source/program/aedifex/dependency/resolution.lux | 16 ++++++++--------
 stdlib/source/program/aedifex/dependency/status.lux     |  6 +++---
 3 files changed, 13 insertions(+), 13 deletions(-)

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

diff --git a/stdlib/source/program/aedifex/dependency/deployment.lux b/stdlib/source/program/aedifex/dependency/deployment.lux
index 2b39403a9..6ff052a5a 100644
--- a/stdlib/source/program/aedifex/dependency/deployment.lux
+++ b/stdlib/source/program/aedifex/dependency/deployment.lux
@@ -115,7 +115,7 @@
             ##                     (..artifacts ///artifact/type.pom (product.right (get@ #///package.pom package)))))
             ))))
 
-(def: #export (one repository [artifact type] package)
+(def: .public (one repository [artifact type] package)
   (-> (Repository Async) Dependency Package (Async (Try Artifact)))
   (do {! async.monad}
     [now (async.future instant.now)
@@ -140,7 +140,7 @@
              (///metadata/artifact.write repository artifact))]
       (in artifact))))
 
-(def: #export (all repository resolution)
+(def: .public (all repository resolution)
   (-> (Repository Async) Resolution (Async (Try (Set Artifact))))
   (let [! (try.with async.monad)]
     (|> (dictionary.entries resolution)
diff --git a/stdlib/source/program/aedifex/dependency/resolution.lux b/stdlib/source/program/aedifex/dependency/resolution.lux
index c286c92c2..c34d88494 100644
--- a/stdlib/source/program/aedifex/dependency/resolution.lux
+++ b/stdlib/source/program/aedifex/dependency/resolution.lux
@@ -58,7 +58,7 @@
      ["#/." snapshot]]]])
 
 (template [<name>]
-  [(exception: #export (<name> {artifact Artifact} {extension Extension} {hash Text})
+  [(exception: .public (<name> {artifact Artifact} {extension Extension} {hash Text})
      (exception.report
       ["Artifact" (///artifact.format artifact)]
       ["Extension" (%.text extension)]
@@ -122,7 +122,7 @@
                 [#.None #.None]
                 #//status.Unverified)])))
 
-(def: #export (one repository dependency)
+(def: .public (one repository dependency)
   (-> (Repository Async) Dependency (Async (Try Package)))
   (let [[artifact type] dependency
         extension (///artifact/extension.extension type)]
@@ -143,18 +143,18 @@
                 #///package.library library_&_status
                 #///package.pom [pom pom_data pom_status]}))))))
 
-(type: #export Resolution
+(type: .public Resolution
   (Dictionary Dependency Package))
 
-(def: #export empty
+(def: .public empty
   Resolution
   (dictionary.empty //.hash))
 
-(def: #export equivalence
+(def: .public equivalence
   (Equivalence Resolution)
   (dictionary.equivalence ///package.equivalence))
 
-(exception: #export (cannot_resolve {dependency Dependency})
+(exception: .public (cannot_resolve {dependency Dependency})
   (exception.report
    ["Artifact" (%.text (///artifact.format (get@ #//.artifact dependency)))]
    ["Type" (%.text (get@ #//.type dependency))]))
@@ -174,7 +174,7 @@
   ["X" announce_failure "Missed" "from"]
   )
 
-(def: #export (any console repositories dependency)
+(def: .public (any console repositories dependency)
   (-> (Console Async) (List (Repository Async)) Dependency (Async (Try Package)))
   (case repositories
     #.End
@@ -197,7 +197,7 @@
           [_ (..announce_failure console repository (get@ #//.artifact dependency))]
           (any console alternatives dependency))))))
 
-(def: #export (all console repositories new_repository dependencies resolution)
+(def: .public (all console repositories new_repository dependencies resolution)
   (-> (Console Async) (List (Repository Async)) (-> URL (Repository Async)) (List Dependency) Resolution
       (Async [(List Dependency)
               (List Dependency)
diff --git a/stdlib/source/program/aedifex/dependency/status.lux b/stdlib/source/program/aedifex/dependency/status.lux
index db97f59b0..2c2e13fd8 100644
--- a/stdlib/source/program/aedifex/dependency/status.lux
+++ b/stdlib/source/program/aedifex/dependency/status.lux
@@ -10,7 +10,7 @@
   ["." /// #_
    ["#." hash (#+ Hash SHA-1 MD5)]])
 
-(type: #export Status
+(type: .public Status
   #Unverified
   (#Partial (Either (Hash SHA-1)
                     (Hash MD5)))
@@ -22,7 +22,7 @@
   (def: (= _ _)
     true))
 
-(def: #export equivalence
+(def: .public equivalence
   (Equivalence Status)
   ($_ sum.equivalence
       ..any_equivalence
@@ -34,7 +34,7 @@
           ///hash.equivalence)
       ))
 
-(def: #export (verified payload)
+(def: .public (verified payload)
   (-> Binary Status)
   (#Verified
    (///hash.sha-1 payload)
-- 
cgit v1.2.3