diff options
| author | Eduardo Julian | 2021-08-07 02:20:09 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2021-08-07 02:20:09 -0400 |
| commit | 17e7566be51df5e428a6b10e6469201a8a9468da (patch) | |
| tree | 0d4ed80c9c9d846784b5bf460f6e6f5fc5b96663 /stdlib/source/program/compositor | |
| parent | eff4c59794868b89d60fdc411f9b544a270b817e (diff) | |
Made the be/de macros for (co)monadic expression extensible.
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/program/compositor.lux | 6 | ||||
| -rw-r--r-- | stdlib/source/program/compositor/import.lux | 2 |
2 files changed, 4 insertions, 4 deletions
diff --git a/stdlib/source/program/compositor.lux b/stdlib/source/program/compositor.lux index 6d19548fb..543fdfdf9 100644 --- a/stdlib/source/program/compositor.lux +++ b/stdlib/source/program/compositor.lux @@ -76,9 +76,9 @@ (All [a] (-> (Async (Try a)) (Async (Try a)))) (do async.monad - [#let [start (io.run instant.now)] + [.let [start (io.run instant.now)] output process - #let [_ ("lux io log" (|> (io.run instant.now) + .let [_ ("lux io log" (|> (io.run instant.now) (instant.span start) %.duration (format "Duration: ")))]] @@ -135,7 +135,7 @@ (<| (or_crash! "Compilation failed:") ..timed (do (try.with async.monad) - [#let [[compilation_sources compilation_host_dependencies compilation_libraries compilation_target compilation_module] compilation] + [.let [[compilation_sources compilation_host_dependencies compilation_libraries compilation_target compilation_module] compilation] import (/import.import (get@ #platform.&file_system platform) compilation_libraries) [state archive] (:sharing [<parameters>] (Platform <parameters>) diff --git a/stdlib/source/program/compositor/import.lux b/stdlib/source/program/compositor/import.lux index eec954cd5..b8e27ebc4 100644 --- a/stdlib/source/program/compositor/import.lux +++ b/stdlib/source/program/compositor/import.lux @@ -50,7 +50,7 @@ (\ ! map (let [! try.monad] (|>> (\ ! map (<binary>.run tar.parser)) (\ ! join) - (\ ! map (|>> row.to_list + (\ ! map (|>> row.list (monad.fold ! (function (_ entry import) (case entry (#tar.Normal [path instant mode ownership content]) |