robur/builder-web
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Views: Removed some opened records in parameters -

Browse source 
.. prefix with record-name is more safe and less cumbersome
This commit is contained in:
rand00 2022-02-03 14:06:11 +01:00
parent 126fe38465
commit 82bcdf9f3b
1 changed files with 17 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

34
lib/views.ml
View file

@ -381,15 +381,15 @@ module Job_build = struct
] ]
]; ];
H.h3 [H.txt "Build artifacts"]; H.h3 [H.txt "Build artifacts"];
H.dl (List.concat_map (fun { Builder_db.filepath; localpath=_; sha256; size } -> H.dl (List.concat_map (fun (file:Builder_db.file) ->
let (`Hex sha256_hex) = Hex.of_cstruct sha256 in let (`Hex sha256_hex) = Hex.of_cstruct file.sha256 in
[ [
H.dt [H.a H.dt [H.a
~a:H.[Fmt.kstr a_href "f/%a" Fpath.pp filepath] ~a:H.[Fmt.kstr a_href "f/%a" Fpath.pp file.filepath]
[H.code [txtf "%a" Fpath.pp filepath]]]; [H.code [txtf "%a" Fpath.pp file.filepath]]];
H.dd [ H.dd [
H.code [H.txt "SHA256:"; H.txt sha256_hex]; H.code [H.txt "SHA256:"; H.txt sha256_hex];
txtf " (%a)" Fmt.byte_size size; txtf " (%a)" Fmt.byte_size file.size;
]; ];
]) ])
artifacts); artifacts);
@ -397,21 +397,21 @@ module Job_build = struct
txtf "Reproduced by %d builds" txtf "Reproduced by %d builds"
(List.length (same_input_same_output @ different_input_same_output))] ; (List.length (same_input_same_output @ different_input_same_output))] ;
H.ul H.ul
((List.map (fun { Builder_db.Build.start ; uuid ; platform ; _ } -> ((List.map (fun (build:Builder_db.Build.t) ->
H.li [ H.li [
txtf "on %s, same input, " platform; txtf "on %s, same input, " build.platform;
H.a ~a:H.[Fmt.kstr a_href "/job/%s/build/%a/" name Uuidm.pp uuid] H.a ~a:H.[Fmt.kstr a_href "/job/%s/build/%a/" name Uuidm.pp build.uuid]
[txtf "%a" pp_ptime start] [txtf "%a" pp_ptime build.start]
]) ])
same_input_same_output) @ same_input_same_output) @
List.map (fun { Builder_db.Build.start ; uuid = other_uuid ; platform ; _ } -> List.map (fun (build':Builder_db.Build.t) ->
H.li [ H.li [
txtf "on %s, different input, " platform; txtf "on %s, different input, " build'.platform;
H.a ~a:H.[ H.a ~a:H.[
Fmt.kstr a_href "/compare/%a/%a/" Fmt.kstr a_href "/compare/%a/%a/"
Uuidm.pp other_uuid Uuidm.pp build'.uuid
Uuidm.pp build.uuid] Uuidm.pp build.uuid]
[txtf "%a" pp_ptime start] [txtf "%a" pp_ptime build'.start]
]) ])
different_input_same_output) different_input_same_output)
] ]
@ -420,14 +420,14 @@ module Job_build = struct
else else
[ H.h3 [H.txt "Same input, different output (not reproducible!)"]; [ H.h3 [H.txt "Same input, different output (not reproducible!)"];
H.ul ( H.ul (
List.map (fun { Builder_db.Build.start ; uuid = other_uuid ; platform ; _ } -> List.map (fun (build':Builder_db.Build.t) ->
H.li [ H.li [
txtf "on %s, " platform ; txtf "on %s, " build'.platform ;
H.a ~a:H.[ H.a ~a:H.[
Fmt.kstr a_href "/compare/%a/%a/" Fmt.kstr a_href "/compare/%a/%a/"
Uuidm.pp other_uuid Uuidm.pp build'.uuid
Uuidm.pp build.uuid] Uuidm.pp build.uuid]
[txtf "%a" pp_ptime start] [txtf "%a" pp_ptime build'.start]
]) ])
same_input_different_output) same_input_different_output)
] ]