diff options
Diffstat (limited to 'stdlib/source/program/aedifex/hash.lux')
| -rw-r--r-- | stdlib/source/program/aedifex/hash.lux | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/stdlib/source/program/aedifex/hash.lux b/stdlib/source/program/aedifex/hash.lux index c38f993c4..b566dc5e6 100644 --- a/stdlib/source/program/aedifex/hash.lux +++ b/stdlib/source/program/aedifex/hash.lux @@ -58,7 +58,7 @@ (def: encoded (Format Binary) (binary.mix (function (_ byte representation) - (let [hex (# n.hex encoded byte) + (let [hex (at n.hex encoded byte) hex (case (text.size hex) 1 (format "0" hex) _ hex)] @@ -130,7 +130,7 @@ (case (text.split_at ..hex_per_chunk input) {.#Some [head tail]} (do try.monad - [head (# n.hex decoded head) + [head (at n.hex decoded head) output (binary.has_64! index head output)] (again tail (++ chunk) output)) @@ -140,7 +140,7 @@ (^.template [<size> <write>] [<size> (do try.monad - [head (# n.hex decoded input) + [head (at n.hex decoded input) output (<write> index head output)] (constructor output))]) ([1 binary.has_8!] @@ -164,7 +164,7 @@ (All (_ h) (Equivalence (Hash h))) (def: (= reference subject) - (# binary.equivalence = - (representation reference) - (representation subject)))) + (at binary.equivalence = + (representation reference) + (representation subject)))) ) |