aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/program
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--stdlib/source/program/compositor.lux8
-rw-r--r--stdlib/source/program/compositor/export.lux71
2 files changed, 4 insertions, 75 deletions
diff --git a/stdlib/source/program/compositor.lux b/stdlib/source/program/compositor.lux
index b2a5f4d15..55da4161b 100644
--- a/stdlib/source/program/compositor.lux
+++ b/stdlib/source/program/compositor.lux
@@ -40,8 +40,9 @@
[phase
[extension {"+" Extender}]]]]
[meta
- ["[0]" cli {"+" Service}]
[packager {"+" Packager}]
+ ["[0]" cli {"+" Service}]
+ ["[0]" export]
[archive {"+" Archive}
["[0]" unit]
[module
@@ -52,7 +53,6 @@
]]]
["[0]" / "_"
["[1][0]" static {"+" Static}]
- ["[1][0]" export]
["[1][0]" import]])
(def: (or_crash! failure_description action)
@@ -185,8 +185,8 @@
{cli.#Export export}
(<| (or_crash! "Export failed:")
(do (try.with async.monad)
- [_ (/export.export (value@ platform.#&file_system platform)
- export)]
+ [_ (export.export (value@ platform.#&file_system platform)
+ export)]
(in (debug.log! "Export complete!"))))
{cli.#Interpretation interpretation}
diff --git a/stdlib/source/program/compositor/export.lux b/stdlib/source/program/compositor/export.lux
deleted file mode 100644
index 4ac08f423..000000000
--- a/stdlib/source/program/compositor/export.lux
+++ /dev/null
@@ -1,71 +0,0 @@
-(.using
- [library
- [lux {"-" Source}
- [abstract
- ["[0]" monad {"+" do}]]
- [control
- ["[0]" try {"+" Try}]
- [concurrency
- ["[0]" async {"+" Async}]]]
- [data
- ["[0]" text
- ["%" format {"+" format}]]
- [collection
- ["[0]" dictionary]
- ["[0]" sequence]]
- [format
- ["[0]" binary]
- ["[0]" tar]]]
- [time
- ["[0]" instant]]
- [tool
- [compiler
- [meta
- [cli {"+" Source Export}]
- ["[0]" io "_"
- ["[1]" context {"+" Extension}]]]]]
- [world
- ["[0]" file]]]])
-
-(def: file
- "library.tar")
-
-(def: no_ownership
- tar.Ownership
- (let [commons (: tar.Owner
- [tar.#name tar.anonymous
- tar.#id tar.no_id])]
- [tar.#user commons
- tar.#group commons]))
-
-(def: .public (library fs sources)
- (-> (file.System Async) (List Source) (Async (Try tar.Tar)))
- (do (try.with async.monad)
- [files (io.listing fs sources)]
- (|> (dictionary.entries files)
- (monad.each try.monad
- (function (_ [path source_code])
- (do try.monad
- [path (|> path
- (text.replaced (# fs separator) .module_separator)
- tar.path)
- source_code (tar.content source_code)]
- (in {tar.#Normal [path
- (instant.of_millis +0)
- ($_ tar.and
- tar.read_by_owner tar.write_by_owner
- tar.read_by_group tar.write_by_group
- tar.read_by_other)
- ..no_ownership
- source_code]}))))
- (# try.monad each sequence.of_list)
- (# async.monad in))))
-
-(def: .public (export fs [sources target])
- (-> (file.System Async) Export (Async (Try Any)))
- (do [! (try.with async.monad)]
- [tar (# ! each (binary.result tar.writer)
- (..library fs sources))]
- (|> ..file
- (format target (# fs separator))
- (# fs write tar))))