diff --git a/guix-data-service/web/repository/controller.scm b/guix-data-service/web/repository/controller.scm index 752c424..cf6d07f 100644 --- a/guix-data-service/web/repository/controller.scm +++ b/guix-data-service/web/repository/controller.scm @@ -147,15 +147,21 @@ (data_available . ,data-available?)))) revisions)))))) (else - (render-html - #:sxml (if (any-invalid-query-parameters? parsed-query-parameters) - (view-branch repository-id - branch-name parsed-query-parameters '()) - (view-branch - repository-id - branch-name - parsed-query-parameters - revisions)))))))) + (if (null? revisions) + (render-html + #:sxml (general-not-found + "Branch not found" + "") + #:code 404) + (render-html + #:sxml (if (any-invalid-query-parameters? parsed-query-parameters) + (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) (letpar& ((package-versions (with-thread-postgresql-connection