/failed-builds: special case no failed builds

🥳
2022-11-09 12:12:54 +01:00 · 2022-11-09 12:12:54 +01:00 · e9f6e1d577
commit e9f6e1d577
parent a355b6124d
1 changed files with 18 additions and 11 deletions
--- a/lib/views.ml
+++ b/lib/views.ml
@ -943,7 +943,14 @@ let failed_builds ~start ~count builds =
    ]
  in
  layout ~title:"Failed builds"
-    ([
+    (match builds with
+     | [] ->
+       [
+         H.h1 [H.txt "No failed builds to list"];
+         H.p [H.txt "🥳"];
+       ]
+     | _ :: _ ->
+       [
         H.h1 [H.txt "Failed builds"];
         H.ul (List.map build builds);
         H.p [ txtf "View the next %d failed builds " count;