Compare commits
No commits in common. "625081abff58b7abe94cb40f4fd72b0dfe732110" and "1016c54ee7683537dd7dc13231d8a5be50a93767" have entirely different histories.
625081abff
...
1016c54ee7
2 changed files with 2 additions and 9 deletions
|
@ -62,8 +62,3 @@ let digests_to_hm digests =
|
||||||
Digestif.SHA256.(to_raw_string (get digests.sha256))
|
Digestif.SHA256.(to_raw_string (get digests.sha256))
|
||||||
|> HM.add `SHA512
|
|> HM.add `SHA512
|
||||||
Digestif.SHA512.(to_raw_string (get digests.sha512))
|
Digestif.SHA512.(to_raw_string (get digests.sha512))
|
||||||
|
|
||||||
let get digests = function
|
|
||||||
| `MD5 -> Digestif.MD5.(to_raw_string (get digests.md5))
|
|
||||||
| `SHA256 -> Digestif.SHA256.(to_raw_string (get digests.sha256))
|
|
||||||
| `SHA512 -> Digestif.SHA512.(to_raw_string (get digests.sha512))
|
|
||||||
|
|
|
@ -480,10 +480,8 @@ module Make
|
||||||
Logs.err (fun m -> m "Write failure for %s: %a" url KV.pp_write_error e)
|
Logs.err (fun m -> m "Write failure for %s: %a" url KV.pp_write_error e)
|
||||||
else begin
|
else begin
|
||||||
(if sizes_match then
|
(if sizes_match then
|
||||||
Logs.err (fun m -> m "Bad checksum %s:%s: computed %s expected %s" url
|
Logs.err (fun m -> m "Bad checksum %s: computed %s expected %s" url
|
||||||
(hash_to_string hash)
|
(hash_to_string hash) (Ohex.encode csum))
|
||||||
(Archive_checksum.get digests hash)
|
|
||||||
(Ohex.encode csum))
|
|
||||||
else match body with
|
else match body with
|
||||||
| `Fixed_body (reported, actual) ->
|
| `Fixed_body (reported, actual) ->
|
||||||
Logs.err (fun m -> m "Size mismatch %s: received %a bytes expected %Lu bytes"
|
Logs.err (fun m -> m "Size mismatch %s: received %a bytes expected %Lu bytes"
|
||||||
|
|
Loading…
Reference in a new issue