new checksum function, seriously

parent a5b24251
......@@ -425,7 +425,7 @@ module Checksum = struct
let b = Buffer.create 257 in
Ident.forget_all ident_printer;
Task.task_iter (tdecl b) t;
Buffer.contents b
Digest.to_hex (Digest.string (Buffer.contents b))
end
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment