diff options
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/program/compositor/export.lux | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/stdlib/source/program/compositor/export.lux b/stdlib/source/program/compositor/export.lux index 468b1ef9d..00bdf6f19 100644 --- a/stdlib/source/program/compositor/export.lux +++ b/stdlib/source/program/compositor/export.lux @@ -62,9 +62,11 @@ (def: #export (export system [sources target]) (-> (file.System Promise) Export (Promise (Try Any))) - (let [package (format target (:: system separator) ..file)] - (do (try.with promise.monad) - [tar (..library system sources) - package (: (Promise (Try (file.File Promise))) - (file.get-file promise.monad system package))] - (!.use (:: package over-write) (binary.run tar.writer tar))))) + (do (try.with promise.monad) + [tar (..library system sources) + package (: (Promise (Try (file.File Promise))) + (file.get-file promise.monad system + (format target (:: system separator) ..file)))] + (|> tar + (binary.run tar.writer) + (!.use (:: package over-write))))) |