aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/program/compositor
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/program/compositor')
-rw-r--r--stdlib/source/program/compositor/cli.lux18
-rw-r--r--stdlib/source/program/compositor/export.lux4
-rw-r--r--stdlib/source/program/compositor/import.lux8
-rw-r--r--stdlib/source/program/compositor/static.lux2
4 files changed, 16 insertions, 16 deletions
diff --git a/stdlib/source/program/compositor/cli.lux b/stdlib/source/program/compositor/cli.lux
index f0fdb80be..394869517 100644
--- a/stdlib/source/program/compositor/cli.lux
+++ b/stdlib/source/program/compositor/cli.lux
@@ -13,25 +13,25 @@
[world
[file (#+ Path)]]]])
-(type: #export Source
+(type: .public Source
Path)
-(type: #export Host_Dependency
+(type: .public Host_Dependency
Path)
-(type: #export Library
+(type: .public Library
Path)
-(type: #export Target
+(type: .public Target
Path)
-(type: #export Compilation
+(type: .public Compilation
[(List Source) (List Host_Dependency) (List Library) Target Module])
-(type: #export Export
+(type: .public Export
[(List Source) Target])
-(type: #export Service
+(type: .public Service
(#Compilation Compilation)
(#Interpretation Compilation)
(#Export Export))
@@ -48,7 +48,7 @@
[module_parser "--module" Module]
)
-(def: #export service
+(def: .public service
(Parser Service)
($_ <>.or
(<>.after (cli.this "build")
@@ -71,7 +71,7 @@
..target_parser))
))
-(def: #export target
+(def: .public target
(-> Service Target)
(|>> (case> (^or (#Compilation [sources host_dependencies libraries target module])
(#Interpretation [sources host_dependencies libraries target module])
diff --git a/stdlib/source/program/compositor/export.lux b/stdlib/source/program/compositor/export.lux
index 239341e5d..ade242f57 100644
--- a/stdlib/source/program/compositor/export.lux
+++ b/stdlib/source/program/compositor/export.lux
@@ -39,7 +39,7 @@
{#tar.user commons
#tar.group commons}))
-(def: #export (library fs sources)
+(def: .public (library fs sources)
(-> (file.System Async) (List Source) (Async (Try tar.Tar)))
(do (try.with async.monad)
[files (io.listing fs sources)]
@@ -62,7 +62,7 @@
(\ try.monad map row.of_list)
(\ async.monad in))))
-(def: #export (export fs [sources target])
+(def: .public (export fs [sources target])
(-> (file.System Async) Export (Async (Try Any)))
(do {! (try.with async.monad)}
[tar (\ ! map (binary.run tar.writer)
diff --git a/stdlib/source/program/compositor/import.lux b/stdlib/source/program/compositor/import.lux
index b8e27ebc4..a96f722d9 100644
--- a/stdlib/source/program/compositor/import.lux
+++ b/stdlib/source/program/compositor/import.lux
@@ -32,14 +32,14 @@
(def: Action
(type (All [a] (Async (Try a)))))
-(exception: #export useless_tar_entry)
+(exception: .public useless_tar_entry)
-(exception: #export (duplicate {library Library} {module Module})
+(exception: .public (duplicate {library Library} {module Module})
(exception.report
["Module" (%.text module)]
["Library" (%.text library)]))
-(type: #export Import
+(type: .public Import
(Dictionary file.Path Binary))
(def: (import_library system library import)
@@ -67,7 +67,7 @@
import)))
(\ ! join)))))))
-(def: #export (import system libraries)
+(def: .public (import system libraries)
(-> (file.System Async) (List Library) (Action Import))
(monad.fold (: (Monad Action)
(try.with async.monad))
diff --git a/stdlib/source/program/compositor/static.lux b/stdlib/source/program/compositor/static.lux
index ee65f9f72..1208687b3 100644
--- a/stdlib/source/program/compositor/static.lux
+++ b/stdlib/source/program/compositor/static.lux
@@ -5,7 +5,7 @@
[world
[file (#+ Path)]]]])
-(type: #export Static
+(type: .public Static
{#host Target
#host_module_extension Text
#target Path