diff options
Diffstat (limited to '')
-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 a484b9a0d..74d965f8c 100644 --- a/stdlib/source/program/aedifex/hash.lux +++ b/stdlib/source/program/aedifex/hash.lux @@ -53,7 +53,7 @@ (def: encode (Format Binary) (binary.fold (function (_ byte representation) - (let [hex (:: n.hex encode byte) + (let [hex (\ n.hex encode byte) hex (case (text.size hex) 1 (format "0" hex) _ hex)] @@ -124,7 +124,7 @@ (case (text.split ..hex-per-chunk input) (#.Some [head tail]) (do try.monad - [head (:: n.hex decode head) + [head (\ n.hex decode head) output (binary.write/64 index head output)] (recur tail (inc chunk) output)) @@ -134,7 +134,7 @@ (^template [<size> <write>] [<size> (do try.monad - [head (:: n.hex decode input) + [head (\ n.hex decode input) output (<write> index head output)] (constructor output))]) ([1 binary.write/8] @@ -158,7 +158,7 @@ (All [h] (Equivalence (Hash h))) (def: (= reference subject) - (:: binary.equivalence = - (:representation reference) - (:representation subject)))) + (\ binary.equivalence = + (:representation reference) + (:representation subject)))) ) |