robur/opam-mirror
4
0
Fork 0
Code Issues 6 Pull requests 2 Projects Releases Packages Wiki Activity Actions

Compare commits

base: robur:1016c54ee7683537dd7dc13231d8a5be50a93767
Branches Tags
robur:main
robur:index-startup
robur:gptar
robur:cache
...
compare: robur:625081abff58b7abe94cb40f4fd72b0dfe732110
Branches Tags
robur:main
robur:index-startup
robur:gptar
robur:cache

2 commits
1016c54ee7 ... 625081abff

Author SHA1 Message Date
Reynir Björnsson
625081abff Merge pull request 'Improve logging of bad checksums' (#7) from log-bad-checksum into main 
Reviewed-on: #7
 2024-10-17 16:12:30 +00:00
Reynir Björnsson
5938a60289 Improve logging of bad checksums 
We now print the computed hash \o/
 2024-10-17 17:26:00 +02:00
2 changed files with 9 additions and 2 deletions
Show stats Expand all files Collapse all files

5
mirage/archive_checksum.ml
View file

@ -62,3 +62,8 @@ 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))

6
mirage/unikernel.ml
View file

@ -480,8 +480,10 @@ 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: computed %s expected %s" url Logs.err (fun m -> m "Bad checksum %s:%s: computed %s expected %s" url
(hash_to_string hash) (Ohex.encode csum)) (hash_to_string hash)
(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"