aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/program/aedifex/repository
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/repository
parent17e7566be51df5e428a6b10e6469201a8a9468da (diff)
No more #export magic syntax.
Diffstat (limited to 'stdlib/source/program/aedifex/repository')
-rw-r--r--stdlib/source/program/aedifex/repository/identity.lux10
-rw-r--r--stdlib/source/program/aedifex/repository/local.lux2
-rw-r--r--stdlib/source/program/aedifex/repository/origin.lux4
-rw-r--r--stdlib/source/program/aedifex/repository/remote.lux10
4 files changed, 13 insertions, 13 deletions
diff --git a/stdlib/source/program/aedifex/repository/identity.lux b/stdlib/source/program/aedifex/repository/identity.lux
index dccecf291..742c1aef2 100644
--- a/stdlib/source/program/aedifex/repository/identity.lux
+++ b/stdlib/source/program/aedifex/repository/identity.lux
@@ -11,17 +11,17 @@
[encoding
["." utf8]]]]]])
-(type: #export User
+(type: .public User
Text)
-(type: #export Password
+(type: .public Password
Text)
-(type: #export Identity
+(type: .public Identity
{#user User
#password Password})
-(def: #export equivalence
+(def: .public equivalence
(Equivalence Identity)
($_ product.equivalence
text.equivalence
@@ -36,7 +36,7 @@
["#::."
(#static getEncoder [] java/util/Base64$Encoder)])
-(def: #export (basic_auth user password)
+(def: .public (basic_auth user password)
(-> User Password Text)
(let [credentials (\ utf8.codec encode (format user ":" password))]
(|> (java/util/Base64::getEncoder)
diff --git a/stdlib/source/program/aedifex/repository/local.lux b/stdlib/source/program/aedifex/repository/local.lux
index 6cfdd0f0b..f59a04b85 100644
--- a/stdlib/source/program/aedifex/repository/local.lux
+++ b/stdlib/source/program/aedifex/repository/local.lux
@@ -36,7 +36,7 @@
(..path /)
(format (..root program /) /)))
-(implementation: #export (repository program fs)
+(implementation: .public (repository program fs)
(-> (Program Async) (file.System Async) (//.Repository Async))
(def: description
diff --git a/stdlib/source/program/aedifex/repository/origin.lux b/stdlib/source/program/aedifex/repository/origin.lux
index be7d24a6e..b850bf21f 100644
--- a/stdlib/source/program/aedifex/repository/origin.lux
+++ b/stdlib/source/program/aedifex/repository/origin.lux
@@ -10,11 +10,11 @@
[file (#+ Path)]
[net (#+ URL)]]]])
-(type: #export Origin
+(type: .public Origin
(#Local Path)
(#Remote URL))
-(def: #export equivalence
+(def: .public equivalence
(Equivalence Origin)
($_ sum.equivalence
text.equivalence
diff --git a/stdlib/source/program/aedifex/repository/remote.lux b/stdlib/source/program/aedifex/repository/remote.lux
index 76363c94f..feaf3201f 100644
--- a/stdlib/source/program/aedifex/repository/remote.lux
+++ b/stdlib/source/program/aedifex/repository/remote.lux
@@ -30,11 +30,11 @@
["#." artifact (#+ Version Artifact)
[extension (#+ Extension)]]]])
-(type: #export Address
+(type: .public Address
URL)
(template [<name>]
- [(exception: #export (<name> {url URL} {status Nat})
+ [(exception: .public (<name> {url URL} {status Nat})
(exception.report
["URL" (%.text url)]
["Status Code" (%.nat status)]))]
@@ -43,18 +43,18 @@
[upload_failure]
)
-(def: #export (uri version_template artifact extension)
+(def: .public (uri version_template artifact extension)
(-> Version Artifact Extension URI)
(format (///artifact.uri version_template artifact) extension))
-(def: #export user_agent
+(def: .public user_agent
(format "LuxAedifex/" (version.format language/lux.version)))
(def: base_headers
(List [Text Text])
(list ["User-Agent" ..user_agent]))
-(implementation: #export (repository http identity address)
+(implementation: .public (repository http identity address)
(All [s] (-> (http.Client IO) (Maybe Identity) Address (//.Repository IO)))
(def: description