diff options
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/program/aedifex/hash.lux | 2 | ||||
| -rw-r--r-- | stdlib/source/program/aedifex/repository.lux | 4 | ||||
| -rw-r--r-- | stdlib/source/program/compositor/import.lux | 2 |
3 files changed, 4 insertions, 4 deletions
diff --git a/stdlib/source/program/aedifex/hash.lux b/stdlib/source/program/aedifex/hash.lux index 46a6fc67a..63394c8c9 100644 --- a/stdlib/source/program/aedifex/hash.lux +++ b/stdlib/source/program/aedifex/hash.lux @@ -123,7 +123,7 @@ chunk 0 output (binary.empty hash_size)] (let [index (n.* chunk i64.bytes_per_i64)] - (case (text.split ..hex_per_chunk input) + (case (text.split_at ..hex_per_chunk input) (#.Some [head tail]) (do try.monad [head (\ n.hex decode head) diff --git a/stdlib/source/program/aedifex/repository.lux b/stdlib/source/program/aedifex/repository.lux index 8d6d63b3a..914cd1420 100644 --- a/stdlib/source/program/aedifex/repository.lux +++ b/stdlib/source/program/aedifex/repository.lux @@ -51,7 +51,7 @@ (\ mock the_description)) (def: (download uri) - (stm.commit + (stm.commit! (do {! stm.monad} [|state| (stm.read state)] (case (\ mock on_download uri |state|) @@ -64,7 +64,7 @@ (in (#try.Failure error)))))) (def: (upload uri content) - (stm.commit + (stm.commit! (do {! stm.monad} [|state| (stm.read state)] (case (\ mock on_upload uri content |state|) diff --git a/stdlib/source/program/compositor/import.lux b/stdlib/source/program/compositor/import.lux index ca72f9749..5d1eba51c 100644 --- a/stdlib/source/program/compositor/import.lux +++ b/stdlib/source/program/compositor/import.lux @@ -55,7 +55,7 @@ (case entry (#tar.Normal [path instant mode ownership content]) (let [path (tar.from_path path)] - (case (dictionary.try_put path (tar.data content) import) + (case (dictionary.has' path (tar.data content) import) (#try.Failure error) (exception.except ..duplicate [library path]) |