diff options
author | Eduardo Julian | 2020-11-17 20:23:53 -0400 |
---|---|---|
committer | Eduardo Julian | 2020-11-17 20:23:53 -0400 |
commit | d89d837de3475b75587a4293e094d755d2cd4626 (patch) | |
tree | 0975a487d987cfe855c4f6e87f05478346913a16 /stdlib/source/program/aedifex/hash.lux | |
parent | 2e5852abb1ac0ae5abdd8709238aca447f62520e (diff) |
Made the syntax of ^template more consistent.
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/program/aedifex/hash.lux | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/stdlib/source/program/aedifex/hash.lux b/stdlib/source/program/aedifex/hash.lux index e5e4e020f..35e3f17a8 100644 --- a/stdlib/source/program/aedifex/hash.lux +++ b/stdlib/source/program/aedifex/hash.lux @@ -131,11 +131,11 @@ (case (..hash-size input) 0 (constructor output) (^template [<size> <write>] - <size> - (do try.monad - [head (:: n.hex decode input) - output (<write> index head output)] - (constructor output))) + [<size> + (do try.monad + [head (:: n.hex decode input) + output (<write> index head output)] + (constructor output))]) ([1 binary.write/8] [2 binary.write/16] [4 binary.write/32]) |