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

Compare commits

base: robur:6447339f64291df742e3e73798e0cb9f687f4be0
Branches Tags
robur:main
robur:index-startup
robur:gptar
robur:cache
..
compare: robur:2c606dbeb44884e7f1305fcbde67c719a9407626
Branches Tags
robur:main
robur:index-startup
robur:gptar
robur:cache

No commits in common. "6447339f64291df742e3e73798e0cb9f687f4be0" and "2c606dbeb44884e7f1305fcbde67c719a9407626" have entirely different histories.
6447339f64 ... 2c606dbeb4

1 changed files with 4 additions and 11 deletions
Show stats Expand all files Collapse all files

15
mirage/unikernel.ml
View file

@ -537,17 +537,10 @@ module Make
| Some f -> | Some f ->
read_chunked t `SHA256 path read_chunked t `SHA256 path
(fun (sha256, md5, sha512) data -> (fun (sha256, md5, sha512) data ->
let sha256 = SHA256.feed_string sha256 data in Lwt.return
Lwt.pause () >>= fun () -> (SHA256.feed_string sha256 data,
let md5 = Option.map (fun t -> MD5.feed_string t data) md5,
Option.map (fun t -> MD5.feed_string t data) md5 Option.map (fun t -> SHA512.feed_string t data) sha512))
in
Lwt.pause () >>= fun () ->
let sha512 =
Option.map (fun t -> SHA512.feed_string t data) sha512
in
Lwt.pause () >|= fun () ->
sha256, md5, sha512)
(SHA256.empty, (SHA256.empty,
Option.map (fun _ -> MD5.empty) md5_final, Option.map (fun _ -> MD5.empty) md5_final,
Option.map (fun _ -> SHA512.empty) sha512_final) >>= function Option.map (fun _ -> SHA512.empty) sha512_final) >>= function