From 69272f598d831e89da83bdc8c9290d5607dfb14d Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sat, 31 Oct 2020 20:26:37 -0400
Subject: Re-named the directory for my bookmarks to better reflect what they
 are.

---
 stdlib/source/program/compositor/export.lux | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

(limited to 'stdlib/source/program/compositor')

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)))))
-- 
cgit v1.2.3