aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/program/aedifex/dependency
diff options
context:
space:
mode:
authorEduardo Julian2021-08-08 17:56:15 -0400
committerEduardo Julian2021-08-08 17:56:15 -0400
commitf621a133e6e0a516c0586270fea8eaffb4829d82 (patch)
tree399396ee2f6a10df10cea9b78c51c76679b70e59 /stdlib/source/program/aedifex/dependency
parent17e7566be51df5e428a6b10e6469201a8a9468da (diff)
No more #export magic syntax.
Diffstat (limited to 'stdlib/source/program/aedifex/dependency')
-rw-r--r--stdlib/source/program/aedifex/dependency/deployment.lux4
-rw-r--r--stdlib/source/program/aedifex/dependency/resolution.lux16
-rw-r--r--stdlib/source/program/aedifex/dependency/status.lux6
3 files changed, 13 insertions, 13 deletions
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)