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

Merge pull request '/failed-builds: special case no failed builds' (#148) from fix-142 into main

Browse source 
Reviewed-on: https://git.robur.io/robur/builder-web/pulls/148
This commit is contained in:
Reynir Björnsson 2022-11-14 13:21:11 +00:00
commit 3bb8925bd3
1 changed files with 18 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

29
lib/views.ml
View file

@ -943,15 +943,22 @@ let failed_builds ~start ~count builds =
] ]
in in
layout ~title:"Failed builds" layout ~title:"Failed builds"
([ (match builds with
H.h1 [H.txt "Failed builds"]; | [] ->
H.ul (List.map build builds); [
H.p [ txtf "View the next %d failed builds " count; H.h1 [H.txt "No failed builds to list"];
H.a ~a:H.[ H.p [H.txt "🥳"];
a_href @@ Link.Failed_builds.make ]
~count ~start:(start + count) () ] | _ :: _ ->
[ H.txt "here"]; [
H.txt "."; H.h1 [H.txt "Failed builds"];
] H.ul (List.map build builds);
]) H.p [ txtf "View the next %d failed builds " count;
H.a ~a:H.[
a_href @@ Link.Failed_builds.make
~count ~start:(start + count) () ]
[ H.txt "here"];
H.txt ".";
]
])