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

Views: Removed outcommented + fixed some 80-col problems

Browse source
This commit is contained in:
rand00 2022-02-03 12:57:21 +01:00
parent f8b17e6b17
commit 3680336b22
1 changed files with 9 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
lib/views.ml
View file

@ -337,7 +337,7 @@ module Job_build = struct
let make_build_info
~name
~delta
~(build:Builder_db.Build.t) (* ({ Builder_db.Build.uuid; start; finish; result; platform; _ } as build) *)
~(build:Builder_db.Build.t)
~artifacts
~same_input_same_output
~different_input_same_output
@ -351,11 +351,15 @@ module Job_build = struct
H.p [txtf "Execution result: %a." Builder.pp_execution_result build.result];
H.h3 [H.txt "Build info"];
H.ul [
H.li [ H.a ~a:H.[Fmt.kstr a_href "/job/%s/build/%a/console" name Uuidm.pp build.uuid]
[H.txt "Console output"];
H.li [
H.a ~a:H.[
Fmt.kstr a_href "/job/%s/build/%a/console" name Uuidm.pp build.uuid
] [H.txt "Console output"];
];
H.li [ H.a ~a:H.[Fmt.kstr a_href "/job/%s/build/%a/script" name Uuidm.pp build.uuid]
[H.txt "Build script"];
H.li [
H.a ~a:H.[
Fmt.kstr a_href "/job/%s/build/%a/script" name Uuidm.pp build.uuid
] [H.txt "Build script"];
]
];
H.h3 [H.txt "Build artifacts"];