diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-04-02 16:47:05 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-04-02 16:47:05 +0100 |
| commit | d4552fc682fd3b0c048237ce35751bbae8c3f250 (patch) | |
| tree | 1ca5f7b3eb789d10127938838cbb752389be73a4 | |
| parent | 3126a8ad65403d9650887783e1216e2e373483d7 (diff) | |
| download | qa-frontpage-d4552fc682fd3b0c048237ce35751bbae8c3f250.tar qa-frontpage-d4552fc682fd3b0c048237ce35751bbae8c3f250.tar.gz | |
Fix checking for unknown commits
| -rw-r--r-- | guix-qa-frontpage/manage-patch-branches.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/guix-qa-frontpage/manage-patch-branches.scm b/guix-qa-frontpage/manage-patch-branches.scm index 760f1a4..2c54fb4 100644 --- a/guix-qa-frontpage/manage-patch-branches.scm +++ b/guix-qa-frontpage/manage-patch-branches.scm @@ -428,9 +428,9 @@ (dig (guix-data-service-error-response-body exn) "query_parameters" "base_commit" - "invalid") - (lambda (invalid) - (string=? invalid "unknown commit")))) + "message") + (lambda (message) + (string=? message "unknown commit")))) (begin (simple-format (current-error-port) |