diff options
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/lux/tool/compiler/default/platform.lux | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/stdlib/source/lux/tool/compiler/default/platform.lux b/stdlib/source/lux/tool/compiler/default/platform.lux index 75ef54731..4cec42038 100644 --- a/stdlib/source/lux/tool/compiler/default/platform.lux +++ b/stdlib/source/lux/tool/compiler/default/platform.lux @@ -251,7 +251,7 @@ (:assume (stm.var (dictionary.new text.hash)))})] (function (_ compile) (function (import! module) - (do promise.monad + (do {@ promise.monad} [[return signal] (:share [<type-vars>] {<Context> initial} @@ -260,7 +260,7 @@ <Signal>])]) (:assume (stm.commit - (do stm.monad + (do {@ stm.monad} [[archive state] (stm.read current)] (if (archive.archived? archive module) (wrap [(promise@wrap (#try.Success [archive state])) @@ -317,7 +317,7 @@ (def: (updated-state archive state) (All [<type-vars>] (-> Archive <State+> (Try <State+>))) - (do try.monad + (do {@ try.monad} [modules (monad.map @ (function (_ module) (do @ [[descriptor document] (archive.find module archive) @@ -373,7 +373,7 @@ compilation (base-compiler (:coerce ///.Input input)) all-dependencies (: (List Module) (list))] - (do (try.with promise.monad) + (do {@ (try.with promise.monad)} [#let [new-dependencies (get@ #///.dependencies compilation) all-dependencies (list@compose new-dependencies all-dependencies) continue! (:share [<type-vars>] |