diff options
author | Christopher Baines <mail@cbaines.net> | 2023-10-10 17:36:41 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2023-10-10 17:36:41 +0100 |
commit | f37f04f7aaef31f095b0266b0c77619cd027b364 (patch) | |
tree | 334b1231076b00ab7a4d5a9ef4f57e362ee03bcf | |
parent | 8642968c934216a6f758b0919d397fb4e3acbceb (diff) | |
download | qa-frontpage-f37f04f7aaef31f095b0266b0c77619cd027b364.tar qa-frontpage-f37f04f7aaef31f095b0266b0c77619cd027b364.tar.gz |
Only show the create branch log if it's available
-rw-r--r-- | guix-qa-frontpage/view/issue.scm | 18 |
1 files changed, 10 insertions, 8 deletions
diff --git a/guix-qa-frontpage/view/issue.scm b/guix-qa-frontpage/view/issue.scm index 983b99b..cb10514 100644 --- a/guix-qa-frontpage/view/issue.scm +++ b/guix-qa-frontpage/view/issue.scm @@ -320,14 +320,16 @@ div.bad { ,@(if base-and-target-refs `(,lint-warnings-div ,package-changes-div) - `((div - (@ (class "bad") - (style "width: fit-content;")) - (h3 "Unable to apply " - ,(if (= 0 (length (assoc-ref series "patches"))) - "patch" - "patches")) - (pre ,create-branch-for-issue-log)))) + (if create-branch-for-issue-log + `((div + (@ (class "bad") + (style "width: fit-content;")) + (h3 "Unable to apply " + ,(if (= 0 (length (assoc-ref series "patches"))) + "patch" + "patches")) + (pre ,create-branch-for-issue-log))) + '())) ,prepare-review-section |