diff options
Diffstat (limited to 'guix-qa-frontpage/view/issue.scm')
| -rw-r--r-- | guix-qa-frontpage/view/issue.scm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/guix-qa-frontpage/view/issue.scm b/guix-qa-frontpage/view/issue.scm index e149cc4..55f0193 100644 --- a/guix-qa-frontpage/view/issue.scm +++ b/guix-qa-frontpage/view/issue.scm @@ -354,7 +354,8 @@ div.bad { ,@(map (lambda (patch) `(li ,(assoc-ref patch "name"))) - (assoc-ref series "patches"))) + (vector->list + (assoc-ref series "patches")))) ,@(if base-and-target-refs `(,lint-warnings-div @@ -364,7 +365,8 @@ div.bad { (@ (class "bad") (style "width: fit-content;")) (h3 "Unable to apply " - ,(if (= 0 (length (assoc-ref series "patches"))) + ,(if (= 0 (vector-length + (assoc-ref series "patches"))) "patch" "patches")) (pre ,create-branch-for-issue-log))) |