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/artifact.lux | 24 ++++++++++++------------ 1 file changed, 12 insertions(+), 12 deletions(-) (limited to 'stdlib/source/program/aedifex/artifact.lux') diff --git a/stdlib/source/program/aedifex/artifact.lux b/stdlib/source/program/aedifex/artifact.lux index 631de6ebe..ec955d4dd 100644 --- a/stdlib/source/program/aedifex/artifact.lux +++ b/stdlib/source/program/aedifex/artifact.lux @@ -16,21 +16,21 @@ [net ["." uri (#+ URI)]]]]]) -(type: #export Group +(type: .public Group Text) -(type: #export Name +(type: .public Name Text) -(type: #export Version +(type: .public Version Text) -(type: #export Artifact +(type: .public Artifact {#group Group #name Name #version Version}) -(def: #export hash +(def: .public hash (Hash Artifact) ($_ product.hash text.hash @@ -38,11 +38,11 @@ text.hash )) -(def: #export equivalence +(def: .public equivalence (Equivalence Artifact) (\ ..hash &equivalence)) -(implementation: #export order +(implementation: .public order (Order Artifact) (def: &equivalence @@ -72,25 +72,25 @@ [":" identity_separator] ) -(def: #export (identity artifact) +(def: .public (identity artifact) (-> Artifact Text) (%.format (get@ #name artifact) ..version_separator (get@ #version artifact))) -(def: #export (format value) +(def: .public (format value) (Format Artifact) (%.format (get@ #group value) ..identity_separator (..identity value))) -(def: #export (directory separator group) +(def: .public (directory separator group) (-> Text Group Text) (|> group (text.split_all_with ..group_separator) (text.join_with separator))) -(def: #export (uri version artifact) +(def: .public (uri version artifact) (-> Version Artifact URI) (let [/ uri.separator group (..directory / (get@ #group artifact)) @@ -99,7 +99,7 @@ identity (..identity artifact)] (%.format group / name / version / identity))) -(def: #export (local artifact) +(def: .public (local artifact) (-> Artifact (List Text)) (list\compose (|> artifact (get@ #group) -- cgit v1.2.3