[no subject]

[Ludovic Courtès]

branch: wip-record-types
commit 7416bb916315730cd1ea74e7914f7532a1aba193
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Fri Aug 11 10:56:03 2023 +0200

    http: Adjust for unused response procedures.
    
    * src/cuirass/http.scm (url-handler)[respond-build-not-found]: Remove.
    <"dashboard">: Use 'respond-dashboard-not-found' rather than
    'respond-html-eval-not-found'.
---
 src/cuirass/http.scm | 8 +-------
 1 file changed, 1 insertion(+), 7 deletions(-)

diff --git a/src/cuirass/http.scm b/src/cuirass/http.scm
index 65255ba..2bf50d9 100644
--- a/src/cuirass/http.scm
+++ b/src/cuirass/http.scm
@@ -607,12 +607,6 @@ passed, only display JOBS targeting this SYSTEM."
                 '())
      #:code 404))
 
-  (define (respond-build-log-not-found build)
-    (let ((drv (assq-ref build #:derivation)))
-      (respond-json-with-error
-       404
-       (format #f "The build log of derivation ~a is not available." drv))))
-
   (define (respond-not-found resource_name)
     (respond (build-response #:code 404)
              #:body (string-append "Resource not found: "
@@ -933,7 +927,7 @@ passed, only display JOBS targeting this SYSTEM."
              (respond (build-response #:code 302
                                       #:headers `((location . ,uri)))
                       #:body ""))
-           (respond-html-eval-not-found id))))
+           (respond-dashboard-not-found id))))
     (('GET "jobset" name)
      (respond-html
       (let* ((evaluation-id-max (db-get-evaluations-id-max name))