diff options
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/program/aedifex/repository.lux | 8 | ||||
| -rw-r--r-- | stdlib/source/program/aedifex/repository/local.lux | 4 | ||||
| -rw-r--r-- | stdlib/source/program/aedifex/repository/remote.lux | 6 |
3 files changed, 9 insertions, 9 deletions
diff --git a/stdlib/source/program/aedifex/repository.lux b/stdlib/source/program/aedifex/repository.lux index 8f92be270..1ab1e0602 100644 --- a/stdlib/source/program/aedifex/repository.lux +++ b/stdlib/source/program/aedifex/repository.lux @@ -58,10 +58,10 @@ (#try.Success [|state| output]) (do ! [_ (stm.write |state| state)] - (wrap (#try.Success output))) + (in (#try.Success output))) (#try.Failure error) - (wrap (#try.Failure error)))))) + (in (#try.Failure error)))))) (def: (upload uri content) (stm.commit @@ -71,8 +71,8 @@ (#try.Success |state|) (do ! [_ (stm.write |state| state)] - (wrap (#try.Success []))) + (in (#try.Success []))) (#try.Failure error) - (wrap (#try.Failure error)))))) + (in (#try.Failure error)))))) ))) diff --git a/stdlib/source/program/aedifex/repository/local.lux b/stdlib/source/program/aedifex/repository/local.lux index 4620a1363..db9395c09 100644 --- a/stdlib/source/program/aedifex/repository/local.lux +++ b/stdlib/source/program/aedifex/repository/local.lux @@ -51,12 +51,12 @@ [#let [absolute_path (..absolute_path program (\ fs separator) uri)] ? (\ fs file? absolute_path) _ (if ? - (wrap []) + (in []) (case (file.parent fs absolute_path) (#.Some parent) (file.make_directories async.monad fs parent) _ (let [! (try.with async.monad)] - (\ ! wrap []))))] + (\ ! in []))))] (\ fs write content absolute_path)))) diff --git a/stdlib/source/program/aedifex/repository/remote.lux b/stdlib/source/program/aedifex/repository/remote.lux index 118085389..76363c94f 100644 --- a/stdlib/source/program/aedifex/repository/remote.lux +++ b/stdlib/source/program/aedifex/repository/remote.lux @@ -73,7 +73,7 @@ _ (do ! [_ ((get@ #@http.body message) (#.Some 0))] - (\ io.monad wrap (exception.throw ..download_failure [(format address uri) status])))))) + (\ io.monad in (exception.except ..download_failure [(format address uri) status])))))) (def: (upload uri content) (do (try.with io.monad) @@ -91,8 +91,8 @@ _ ((get@ #@http.body message) (#.Some 0))] (case status (^ (static http/status.created)) - (wrap []) + (in []) _ - (\ io.monad wrap (exception.throw ..upload_failure [(format address uri) status]))))) + (\ io.monad in (exception.except ..upload_failure [(format address uri) status]))))) ) |