diff options
| author | Eduardo Julian | 2019-02-24 21:30:10 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2019-02-24 21:30:10 -0400 |
| commit | 2ae7dc30bf91d709a6038871e9c967dafb15cf49 (patch) | |
| tree | e8643c571c640b6f4b81723f95a6573f6b87c01b /stdlib/source/lux/tool | |
| parent | a72e34d30eaf3557f9b76ced9605a95759ce8eca (diff) | |
Improved the names of monad transformers.
Diffstat (limited to 'stdlib/source/lux/tool')
| -rw-r--r-- | stdlib/source/lux/tool/compiler/default/platform.lux | 2 | ||||
| -rw-r--r-- | stdlib/source/lux/tool/compiler/meta/io/context.lux | 2 | ||||
| -rw-r--r-- | stdlib/source/lux/tool/compiler/phase.lux | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/stdlib/source/lux/tool/compiler/default/platform.lux b/stdlib/source/lux/tool/compiler/default/platform.lux index 8711d20ec..22c50ddec 100644 --- a/stdlib/source/lux/tool/compiler/default/platform.lux +++ b/stdlib/source/lux/tool/compiler/default/platform.lux @@ -29,7 +29,7 @@ ## (def: (write-module target-dir file-name module-name module outputs) ## (-> File Text Text Module Outputs (Process Any)) -## (do (error.with-error io.monad) +## (do (error.with io.monad) ## [_ (monad.map @ (product.uncurry (&io.write target-dir)) ## (dictionary.entries outputs))] ## (&io.write target-dir diff --git a/stdlib/source/lux/tool/compiler/meta/io/context.lux b/stdlib/source/lux/tool/compiler/meta/io/context.lux index f526a3738..6b9ce9ba4 100644 --- a/stdlib/source/lux/tool/compiler/meta/io/context.lux +++ b/stdlib/source/lux/tool/compiler/meta/io/context.lux @@ -93,7 +93,7 @@ (All [!] (-> (Monad !) (file.System !) (List Context) Module (! (Error Input)))) - (do (error.with-error monad) + (do (error.with monad) [## TODO: Get rid of both ":share"s ASAP path,file (:share [!] {(Monad !) diff --git a/stdlib/source/lux/tool/compiler/phase.lux b/stdlib/source/lux/tool/compiler/phase.lux index 909b7e9e9..8c4bbd615 100644 --- a/stdlib/source/lux/tool/compiler/phase.lux +++ b/stdlib/source/lux/tool/compiler/phase.lux @@ -20,7 +20,7 @@ (state.State' Error s o)) (def: #export monad - (state.with-state error.monad)) + (state.with error.monad)) (type: #export (Phase s i o) (-> i (Operation s o))) |