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

Compare commits

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

No commits in common. "625081abff58b7abe94cb40f4fd72b0dfe732110" and "1016c54ee7683537dd7dc13231d8a5be50a93767" have entirely different histories.
625081abff ... 1016c54ee7

2 changed files with 2 additions and 9 deletions
Show stats Expand all files Collapse all files

5
mirage/archive_checksum.ml
View file

@ -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))

6
mirage/unikernel.ml
View file

@ -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"