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/resolution.lux | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) (limited to 'stdlib/source/program/aedifex/dependency/resolution.lux') 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 [] - [(exception: #export ( {artifact Artifact} {extension Extension} {hash Text}) + [(exception: .public ( {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) -- cgit v1.2.3