diff options
Diffstat (limited to 'guix-qa-frontpage/server.scm')
| -rw-r--r-- | guix-qa-frontpage/server.scm | 22 |
1 files changed, 12 insertions, 10 deletions
diff --git a/guix-qa-frontpage/server.scm b/guix-qa-frontpage/server.scm index d3978f8..c564ed6 100644 --- a/guix-qa-frontpage/server.scm +++ b/guix-qa-frontpage/server.scm @@ -434,16 +434,18 @@ port. Also, the port used can be changed by passing the --port option.\n" (let ((derivation-changes (with-exception-handler (lambda (exn) - (unless (and (guix-data-service-error? exn) - ;; This probably just means the target - ;; revision hasn't been processed yet. The - ;; Guix Data Service should send a more - ;; informative response though. - (string=? - (assoc-ref - (guix-data-service-error-response-body exn) - "error") - "invalid query")) + (unless + (and (guix-data-service-error? exn) + ;; This probably just means the target + ;; revision hasn't been processed yet. The + ;; Guix Data Service should send a more + ;; informative response though. + (and=> (assoc-ref + (guix-data-service-error-response-body exn) + "error") + (lambda (error) + (string=? error + "invalid query")))) (simple-format (current-error-port) "failed fetching derivation changes for issue ~A: ~A\n" |