diff options
Diffstat (limited to 'stdlib/source/program/aedifex/repository')
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 |