diff options
author | Eduardo Julian | 2021-08-08 17:56:15 -0400 |
---|---|---|
committer | Eduardo Julian | 2021-08-08 17:56:15 -0400 |
commit | f621a133e6e0a516c0586270fea8eaffb4829d82 (patch) | |
tree | 399396ee2f6a10df10cea9b78c51c76679b70e59 /stdlib/source/library/lux/tool/compiler/meta/io | |
parent | 17e7566be51df5e428a6b10e6469201a8a9468da (diff) |
No more #export magic syntax.
Diffstat (limited to 'stdlib/source/library/lux/tool/compiler/meta/io')
-rw-r--r-- | stdlib/source/library/lux/tool/compiler/meta/io/archive.lux | 16 | ||||
-rw-r--r-- | stdlib/source/library/lux/tool/compiler/meta/io/context.lux | 14 |
2 files changed, 15 insertions, 15 deletions
diff --git a/stdlib/source/library/lux/tool/compiler/meta/io/archive.lux b/stdlib/source/library/lux/tool/compiler/meta/io/archive.lux index 125360e58..21d657352 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/io/archive.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/io/archive.lux @@ -51,7 +51,7 @@ ["." directive] ["#/." program]]]]]]) -(exception: #export (cannot_prepare {archive file.Path} +(exception: .public (cannot_prepare {archive file.Path} {module_id archive.ID} {error Text}) (exception.report @@ -83,7 +83,7 @@ (\ fs separator) (%.nat module_id))) -(def: #export (artifact fs static module_id artifact_id) +(def: .public (artifact fs static module_id artifact_id) (All [!] (-> (file.System !) Static archive.ID artifact.ID file.Path)) (format (..module fs static module_id) (\ fs separator) @@ -98,7 +98,7 @@ (in (#try.Success [])) (\ fs make_directory path)))) -(def: #export (prepare fs static module_id) +(def: .public (prepare fs static module_id) (-> (file.System Async) Static archive.ID (Async (Try Any))) (do {! async.monad} [.let [module (..module fs static module_id)] @@ -118,11 +118,11 @@ module_id error]))))))))) -(def: #export (write fs static module_id artifact_id content) +(def: .public (write fs static module_id artifact_id content) (-> (file.System Async) Static archive.ID artifact.ID Binary (Async (Try Any))) (\ fs write content (..artifact fs static module_id artifact_id))) -(def: #export (enable fs static) +(def: .public (enable fs static) (-> (file.System Async) Static (Async (Try Any))) (do (try.with async.monad) [_ (..ensure_directory fs (get@ #static.target static))] @@ -134,7 +134,7 @@ (\ fs separator) "general_descriptor")) -(def: #export (freeze fs static archive) +(def: .public (freeze fs static archive) (-> (file.System Async) Static Archive (Async (Try Any))) (\ fs write (archive.export ///.version archive) (..general_descriptor fs static))) @@ -147,7 +147,7 @@ (\ fs separator) ..module_descriptor_file)) -(def: #export (cache fs static module_id content) +(def: .public (cache fs static module_id content) (-> (file.System Async) Static archive.ID Binary (Async (Try Any))) (\ fs write content (..module_descriptor fs static module_id))) @@ -459,7 +459,7 @@ ..empty_bundles loaded_caches)]))))) -(def: #export (thaw host_environment fs static import contexts) +(def: .public (thaw host_environment fs static import contexts) (All [expression directive] (-> (generation.Host expression directive) (file.System Async) Static Import (List Context) (Async (Try [Archive .Lux Bundles])))) diff --git a/stdlib/source/library/lux/tool/compiler/meta/io/context.lux b/stdlib/source/library/lux/tool/compiler/meta/io/context.lux index e049ef8b5..81ac25578 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/io/context.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/io/context.lux @@ -29,23 +29,23 @@ [descriptor (#+ Module)]] ["/#" // (#+ Input)]]]) -(exception: #export (cannot_find_module {importer Module} {module Module}) +(exception: .public (cannot_find_module {importer Module} {module Module}) (exception.report ["Module" (%.text module)] ["Importer" (%.text importer)])) -(exception: #export (cannot_read_module {module Module}) +(exception: .public (cannot_read_module {module Module}) (exception.report ["Module" (%.text module)])) -(type: #export Extension +(type: .public Extension Text) (def: lux_extension Extension ".lux") -(def: #export (path fs context module) +(def: .public (path fs context module) (All [m] (-> (file.System m) Context Module file.Path)) (|> module (//.safe fs) @@ -120,7 +120,7 @@ (#try.Failure _) (in (..find_library_source_file importer import partial_host_extension module))))) -(def: #export (read fs importer import contexts partial_host_extension module) +(def: .public (read fs importer import contexts partial_host_extension module) (-> (file.System Async) Module Import (List Context) Extension Module (Async (Try Input))) (do (try.with async.monad) @@ -135,7 +135,7 @@ (#try.Failure _) (async\in (exception.except ..cannot_read_module [module]))))) -(type: #export Enumeration +(type: .public Enumeration (Dictionary file.Path Binary)) (def: (context_listing fs directory enumeration) @@ -159,7 +159,7 @@ (def: Action (type (All [a] (Async (Try a))))) -(def: #export (listing fs contexts) +(def: .public (listing fs contexts) (-> (file.System Async) (List Context) (Action Enumeration)) (monad.fold (: (Monad Action) (try.with async.monad)) |