diff options
| author | Eduardo Julian | 2022-04-07 00:59:30 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2022-04-07 00:59:30 -0400 |
| commit | 7542b0addd9eaf01dd5f1c4c8a39b67f51a4bd06 (patch) | |
| tree | 11602f21abb3256019847647e7bbeba8a91418ee /stdlib/source/library/lux/tool/compiler | |
| parent | b0d725f24335e82eefc77175efc0a5282951316e (diff) | |
More efficient TAR handling.
Diffstat (limited to 'stdlib/source/library/lux/tool/compiler')
4 files changed, 4 insertions, 4 deletions
diff --git a/stdlib/source/library/lux/tool/compiler/meta/cache/archive.lux b/stdlib/source/library/lux/tool/compiler/meta/cache/archive.lux index 28abd457a..c31f86f25 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/cache/archive.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/cache/archive.lux @@ -21,4 +21,4 @@ (def: .public (cache! fs context it) (All (_ !) (-> (file.System !) Context Archive (! (Try Any)))) - (# fs write (archive.export ///.version it) (..descriptor fs context))) + (# fs write (..descriptor fs context) (archive.export ///.version it))) diff --git a/stdlib/source/library/lux/tool/compiler/meta/cache/artifact.lux b/stdlib/source/library/lux/tool/compiler/meta/cache/artifact.lux index ca2689c18..5917e328b 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/cache/artifact.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/cache/artifact.lux @@ -36,4 +36,4 @@ (def: .public (cache! fs context @module @artifact content) (All (_ !) (-> (file.System !) Context module.ID artifact.ID Binary (! (Try Any)))) - (# fs write content (..path fs context @module @artifact))) + (# fs write (..path fs context @module @artifact) content)) diff --git a/stdlib/source/library/lux/tool/compiler/meta/cache/module.lux b/stdlib/source/library/lux/tool/compiler/meta/cache/module.lux index 869aa2019..426a68589 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/cache/module.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/cache/module.lux @@ -80,7 +80,7 @@ (def: .public (cache! fs context @module content) (All (_ !) (-> (file.System !) Context module.ID Binary (! (Try Any)))) - (# fs write content (..descriptor fs context @module))) + (# fs write (..descriptor fs context @module) content)) (def: .public (cache fs context @module) (All (_ !) (-> (file.System !) Context module.ID (! (Try Binary)))) diff --git a/stdlib/source/library/lux/tool/compiler/meta/export.lux b/stdlib/source/library/lux/tool/compiler/meta/export.lux index 7eb36ad62..4fdc63159 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/export.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/export.lux @@ -71,4 +71,4 @@ (..library fs) (# ! each (binary.result tar.writer))) .let [/ (# fs separator)]] - (# fs write tar (format target / ..file)))) + (# fs write (format target / ..file) tar))) |