add comment for checksum in base48 encoding

2016-11-20 00:29:58 -08:00 · 2016-11-20 00:29:58 -08:00 · 39ea223e5b
commit 39ea223e5b
parent ac7342a43d
1 changed files with 1 additions and 0 deletions
--- a/src/utils/base48.ml
+++ b/src/utils/base48.ml
@ -89,6 +89,7 @@ let sha256 s =
  let computed_hash = hash#result in hash#wipe;
  computed_hash

+(* Prepend a 4 byte cryptographic checksum before encoding string s *)
 let safe_encode ?alphabet s =
  raw_encode ?alphabet (s ^ String.sub (sha256 (sha256 s)) 0 4)