cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Render a branch not found page if the branch doesn't exist

Browse source
This commit is contained in:
Christopher Baines 2022-11-19 10:07:17 +00:00
parent 91f0fbdeb5
commit e87a8124bf
1 changed files with 15 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

8
guix-data-service/web/repository/controller.scm
View file

@ -147,6 +147,12 @@
(data_available . ,data-available?)))) (data_available . ,data-available?))))
revisions)))))) revisions))))))
(else (else
(if (null? revisions)
(render-html
#:sxml (general-not-found
"Branch not found"
"")
#:code 404)
(render-html (render-html
#:sxml (if (any-invalid-query-parameters? parsed-query-parameters) #:sxml (if (any-invalid-query-parameters? parsed-query-parameters)
(view-branch repository-id (view-branch repository-id
@ -155,7 +161,7 @@
repository-id repository-id
branch-name branch-name
parsed-query-parameters parsed-query-parameters
revisions)))))))) revisions)))))))))
(('GET "repository" repository-id "branch" branch-name "package" package-name) (('GET "repository" repository-id "branch" branch-name "package" package-name)
(letpar& ((package-versions (letpar& ((package-versions
(with-thread-postgresql-connection (with-thread-postgresql-connection