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/metadata/artifact.lux | 14 +++++++-------
 stdlib/source/program/aedifex/metadata/snapshot.lux | 14 +++++++-------
 2 files changed, 14 insertions(+), 14 deletions(-)

(limited to 'stdlib/source/program/aedifex/metadata')

diff --git a/stdlib/source/program/aedifex/metadata/artifact.lux b/stdlib/source/program/aedifex/metadata/artifact.lux
index 777c7df1b..0bd6d4a12 100644
--- a/stdlib/source/program/aedifex/metadata/artifact.lux
+++ b/stdlib/source/program/aedifex/metadata/artifact.lux
@@ -38,7 +38,7 @@
     [repository (#+ Repository)]
     ["#." artifact (#+ Group Name Version Artifact)]]])
 
-(type: #export Metadata
+(type: .public Metadata
   {#group Group
    #name Name
    #versions (List Version)
@@ -95,7 +95,7 @@
   (-> (List Version) XML)
   (|>> (list\map ..version_format) (#xml.Node ..<versions> xml.attributes)))
 
-(def: #export (format value)
+(def: .public (format value)
   (-> Metadata XML)
   (#xml.Node ..<metadata>
              xml.attributes
@@ -141,7 +141,7 @@
                  (in (instant.of_date_time date time)))
                (..text ..<last_updated>)))
 
-(def: #export parser
+(def: .public parser
   (Parser Metadata)
   (<| (<xml>.node ..<metadata>)
       ($_ <>.and
@@ -155,7 +155,7 @@
                   (<xml>.somewhere ..last_updated_parser)
                   )))))
 
-(def: #export equivalence
+(def: .public equivalence
   (Equivalence Metadata)
   ($_ product.equivalence
       text.equivalence
@@ -164,7 +164,7 @@
       instant.equivalence
       ))
 
-(def: #export uri
+(def: .public uri
   (-> Artifact URI)
   //.remote_project_uri)
 
@@ -172,7 +172,7 @@
   Instant
   (instant.of_millis +0))
 
-(def: #export (read repository artifact)
+(def: .public (read repository artifact)
   (-> (Repository Async) Artifact (Async (Try Metadata)))
   (do async.monad
     [project (\ repository download (..uri artifact))]
@@ -192,7 +192,7 @@
               #versions (list)
               #last_updated ..epoch}))))))
 
-(def: #export (write repository artifact metadata)
+(def: .public (write repository artifact metadata)
   (-> (Repository Async) Artifact Metadata (Async (Try Any)))
   (|> metadata
       ..format
diff --git a/stdlib/source/program/aedifex/metadata/snapshot.lux b/stdlib/source/program/aedifex/metadata/snapshot.lux
index 6a9d812c9..69e3432fa 100644
--- a/stdlib/source/program/aedifex/metadata/snapshot.lux
+++ b/stdlib/source/program/aedifex/metadata/snapshot.lux
@@ -45,7 +45,7 @@
       ["#/." version]
       ["#/." stamp]]]]])
 
-(type: #export Metadata
+(type: .public Metadata
   {#artifact Artifact
    #versioning Versioning})
 
@@ -68,7 +68,7 @@
   [version_format Version ..<version> (|>)]
   )
 
-(def: #export (format (^slots [#artifact #versioning]))
+(def: .public (format (^slots [#artifact #versioning]))
   (-> Metadata XML)
   (let [(^slots [#///artifact.group #///artifact.name #///artifact.version]) artifact]
     (#xml.Node ..<metadata>
@@ -83,7 +83,7 @@
   (<| (<xml>.node tag)
       <xml>.text))
 
-(def: #export parser
+(def: .public parser
   (Parser Metadata)
   (<| (<xml>.node ..<metadata>)
       (do {! <>.monad}
@@ -111,18 +111,18 @@
                         #///artifact.version version}
              #versioning versioning}))))
 
-(def: #export equivalence
+(def: .public equivalence
   (Equivalence Metadata)
   ($_ product.equivalence
       ///artifact.equivalence
       ///artifact/versioning.equivalence
       ))
 
-(def: #export uri
+(def: .public uri
   (-> Artifact URI)
   //.remote_artifact_uri)
 
-(def: #export (read repository artifact)
+(def: .public (read repository artifact)
   (-> (Repository Async) Artifact (Async (Try Metadata)))
   (do async.monad
     [project (\ repository download (..uri artifact))]
@@ -139,7 +139,7 @@
            {#artifact artifact
             #versioning ///artifact/versioning.init})))))
 
-(def: #export (write repository artifact metadata)
+(def: .public (write repository artifact metadata)
   (-> (Repository Async) Artifact Metadata (Async (Try Any)))
   (|> metadata
       ..format
-- 
cgit v1.2.3