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

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

@ -147,15 +147,21 @@
(data_available . ,data-available?)))) (data_available . ,data-available?))))
revisions)))))) revisions))))))
(else (else
(render-html (if (null? revisions)
#:sxml (if (any-invalid-query-parameters? parsed-query-parameters) (render-html
(view-branch repository-id #:sxml (general-not-found
branch-name parsed-query-parameters '()) "Branch not found"
(view-branch "")
repository-id #:code 404)
branch-name (render-html
parsed-query-parameters #:sxml (if (any-invalid-query-parameters? parsed-query-parameters)
revisions)))))))) (view-branch repository-id
branch-name parsed-query-parameters '())
(view-branch
repository-id
branch-name
parsed-query-parameters
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