diff options
| author | Eduardo Julian | 2021-08-14 03:09:58 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2021-08-14 03:09:58 -0400 |
| commit | 6fd22846f21b8b70b7867e989109d14a366c0a3e (patch) | |
| tree | 9086774968ad944133dc5cf29c546add6e13a4b6 /stdlib/source/program/aedifex | |
| parent | e53c1a090eb9cfac3cb23d10d981648d02518ed1 (diff) | |
Moved documentation-generation machinery to its own module.
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/program/aedifex/hash.lux | 2 | ||||
| -rw-r--r-- | stdlib/source/program/aedifex/repository.lux | 4 |
2 files changed, 3 insertions, 3 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|) |