diff options
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 |