diff options
author | Eduardo Julian | 2021-08-08 17:56:15 -0400 |
---|---|---|
committer | Eduardo Julian | 2021-08-08 17:56:15 -0400 |
commit | f621a133e6e0a516c0586270fea8eaffb4829d82 (patch) | |
tree | 399396ee2f6a10df10cea9b78c51c76679b70e59 /stdlib/source/program/aedifex/dependency | |
parent | 17e7566be51df5e428a6b10e6469201a8a9468da (diff) |
No more #export magic syntax.
Diffstat (limited to '')
4 files changed, 17 insertions, 17 deletions
diff --git a/stdlib/source/program/aedifex/dependency.lux b/stdlib/source/program/aedifex/dependency.lux index 1ac750d62..f31f0ca44 100644 --- a/stdlib/source/program/aedifex/dependency.lux +++ b/stdlib/source/program/aedifex/dependency.lux @@ -13,22 +13,22 @@ ["#" artifact (#+ Artifact) ("#\." order) [type (#+ Type)]]]) -(type: #export Dependency +(type: .public Dependency {#artifact Artifact #type Type}) -(def: #export hash +(def: .public hash (Hash Dependency) ($_ product.hash //.hash text.hash )) -(def: #export equivalence +(def: .public equivalence (Equivalence Dependency) (\ hash &equivalence)) -(implementation: #export order +(implementation: .public order (Order Dependency) (def: &equivalence 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) |