diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-06-28 11:45:02 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-06-28 11:45:02 +0100 |
| commit | b87a9baec4562b74a0ca5c39da99cdcc0c5aa5b2 (patch) | |
| tree | f34eb46104463d16c87e7d4fa73a66399ea78d80 | |
| parent | 81732ef539cb67b4bde525464a4ec3c3b6bc8d6e (diff) | |
| download | qa-frontpage-b87a9baec4562b74a0ca5c39da99cdcc0c5aa5b2.tar qa-frontpage-b87a9baec4562b74a0ca5c39da99cdcc0c5aa5b2.tar.gz | |
Improve support for redirecting to the branch pages
| -rw-r--r-- | guix-qa-frontpage/server.scm | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/guix-qa-frontpage/server.scm b/guix-qa-frontpage/server.scm index 497085d..174b2fa 100644 --- a/guix-qa-frontpage/server.scm +++ b/guix-qa-frontpage/server.scm @@ -60,8 +60,11 @@ list-non-master-branches #:ttl 6000))) (find (lambda (branch) - (= (assoc-ref (cdr branch) "issue_number") - issue-number)) + (and=> + (assoc-ref (cdr branch) "issue_number") + (lambda (branch-issue-number) + (= branch-issue-number + issue-number)))) branches))) (define* (make-controller assets-directory database metrics-registry @@ -412,7 +415,8 @@ #:headers `((location . ,(string->uri (string-append "https://qa.guix.gnu.org/branch/" name))))) - #f)))) + #f)) + (_ #f))) (render-html #:sxml (general-not-found "Issue not found" |