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 1c853512c..b292f004b 100644 --- a/stdlib/source/program/aedifex/hash.lux +++ b/stdlib/source/program/aedifex/hash.lux @@ -84,16 +84,16 @@ (exception .public (not_a_hash [size Nat value Text]) (exception.report - "Pseudo hash" (%.text value) - "Expected size" (%.nat size) - "Actual size" (%.nat (text.size value)))) + (list ["Pseudo hash" (%.text value)] + ["Expected size" (%.nat size)] + ["Actual size" (%.nat (text.size value))]))) (with_template [<name> <size>] [(exception .public (<name> [data Binary]) (exception.report - "Pseudo hash" (%.text (..encoded data)) - "Expected size" (%.nat <size>) - "Actual size" (%.nat (binary.size data))))] + (list ["Pseudo hash" (%.text (..encoded data))] + ["Expected size" (%.nat <size>)] + ["Actual size" (%.nat (binary.size data))])))] [not_a_sha-1 ..sha-1::size] [not_a_md5 ..md5::size] |