diff options
| author | Christopher Baines <mail@cbaines.net> | 2022-11-17 21:46:33 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2022-11-17 21:46:33 +0000 |
| commit | fa1191184a46bc7d150c8d5a9249cb72f1c5eef8 (patch) | |
| tree | 688bf5c78a9cb62982678aa5b4d31833d7469d4b /guix-qa-frontpage | |
| parent | f38d7cb65a608ef5c8c3299e72b3cde2360f85bb (diff) | |
| download | qa-frontpage-fa1191184a46bc7d150c8d5a9249cb72f1c5eef8.tar qa-frontpage-fa1191184a46bc7d150c8d5a9249cb72f1c5eef8.tar.gz | |
Fix the dig procedure and uses of it
Diffstat (limited to 'guix-qa-frontpage')
| -rw-r--r-- | guix-qa-frontpage/manage-patch-branches.scm | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/guix-qa-frontpage/manage-patch-branches.scm b/guix-qa-frontpage/manage-patch-branches.scm index 5d0ca3c..657af1c 100644 --- a/guix-qa-frontpage/manage-patch-branches.scm +++ b/guix-qa-frontpage/manage-patch-branches.scm @@ -274,16 +274,16 @@ (define (start-manage-patch-branches-thread) (define (dig alist . parts) - (if (list? alist) + (if (pair? alist) (match parts + ((part) + (assoc-ref alist part)) ((part . rest) (if (list? alist) - (dig - (assoc-ref alist part) - (cdr parts)) - #f)) - ((part) - (assoc-ref alist part))) + (apply dig + (assoc-ref alist part) + (cdr parts)) + #f))) #f)) (define (perform-pass) @@ -315,9 +315,9 @@ (and=> (dig (guix-data-service-error-response-body exn) - '("query_parameters" - "base_commit" - "message")) + "query_parameters" + "base_commit" + "message") (lambda (message) (string=? message "unknown commit")))) (begin |