diff --git a/guix-data-service/web/compare/controller.scm b/guix-data-service/web/compare/controller.scm index df7e89a..5edd922 100644 --- a/guix-data-service/web/compare/controller.scm +++ b/guix-data-service/web/compare/controller.scm @@ -182,14 +182,16 @@ (($ value) (with-thread-postgresql-connection (lambda (conn) - (select-job-for-commit conn value)))) + (and (string? value) + (select-job-for-commit conn value))))) (_ #f))) (target-job (match (assq-ref query-parameters 'target_commit) (($ value) (with-thread-postgresql-connection (lambda (conn) - (select-job-for-commit conn value)))) + (and (string? value) + (select-job-for-commit conn value))))) (_ #f)))) (case (most-appropriate-mime-type '(application/json text/html)