aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/library/lux/tool/compiler/meta/io/context.lux
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--stdlib/source/library/lux/tool/compiler/meta/io/context.lux8
1 files changed, 4 insertions, 4 deletions
diff --git a/stdlib/source/library/lux/tool/compiler/meta/io/context.lux b/stdlib/source/library/lux/tool/compiler/meta/io/context.lux
index 161700dd4..5331608b7 100644
--- a/stdlib/source/library/lux/tool/compiler/meta/io/context.lux
+++ b/stdlib/source/library/lux/tool/compiler/meta/io/context.lux
@@ -77,7 +77,7 @@
(Async (Try [file.Path Binary])))
... Preference is explicitly being given to Lux files that have a host extension.
... Normal Lux files (i.e. without a host extension) are then picked as fallback files.
- (do {! async.monad}
+ (do [! async.monad]
[outcome (..find_source_file fs importer contexts module (..full_host_extension partial_host_extension))]
(case outcome
(#try.Success path)
@@ -86,7 +86,7 @@
(\ (try.with !) each (|>> [path])))
(#try.Failure _)
- (do {! (try.with !)}
+ (do [! (try.with !)]
[path (..find_source_file fs importer contexts module ..lux_extension)]
(|> path
(\ fs read)
@@ -113,7 +113,7 @@
(Async (Try [file.Path Binary])))
... Preference is explicitly being given to Lux files that have a host extension.
... Normal Lux files (i.e. without a host extension) are then picked as fallback files.
- (do {! async.monad}
+ (do [! async.monad]
[outcome (find_local_source_file fs importer import contexts partial_host_extension module)]
(case outcome
(#try.Success [path data])
@@ -142,7 +142,7 @@
(def: (context_listing fs context directory enumeration)
(-> (file.System Async) Context file.Path Enumeration (Async (Try Enumeration)))
- (do {! (try.with async.monad)}
+ (do [! (try.with async.monad)]
[enumeration (|> directory
(\ fs directory_files)
(\ ! each (monad.mix ! (function (_ file enumeration)