diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2021-09-09 11:18:06 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2021-09-09 11:18:06 +0200 |
| commit | fb32a38db1d3a6d9bc970e14df5be95e59a8ab02 (patch) | |
| tree | 6e589a255d3a3350b7ed93cca6884140ff2a15f4 /guix/swh.scm | |
| parent | 902de26c1a2462b3374633f724852507d957019a (diff) | |
| download | guix-fb32a38db1d3a6d9bc970e14df5be95e59a8ab02.tar.gz | |
swh: Adjust <vault-reply> to latest API changes.
Fixes uses of 'swh-download' as reported at <https://lists.gnu.org/archive/html/guix-devel/2021-09/msg00115.html>. Reported by zimoun. * guix/swh.scm (<vault-reply>)[object-id, object-type]: Remove. These two fields are no longer provided in JSON replies. [swhid]: New field.
Diffstat (limited to 'guix/swh.scm')
| -rw-r--r-- | guix/swh.scm | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/guix/swh.scm b/guix/swh.scm index 922d781a7b..76234b4358 100644 --- a/guix/swh.scm +++ b/guix/swh.scm @@ -104,10 +104,9 @@ vault-reply? vault-reply-id vault-reply-fetch-url - vault-reply-object-id - vault-reply-object-type vault-reply-progress-message vault-reply-status + vault-reply-swhid query-vault request-cooking vault-fetch @@ -391,10 +390,9 @@ FALSE-IF-404? is true, return #f upon 404 responses." json->vault-reply (id vault-reply-id) (fetch-url vault-reply-fetch-url "fetch_url") - (object-id vault-reply-object-id "obj_id") - (object-type vault-reply-object-type "obj_type" string->symbol) (progress-message vault-reply-progress-message "progress_message") - (status vault-reply-status "status" string->symbol)) + (status vault-reply-status "status" string->symbol) + (swhid vault-reply-swhid)) ;;; |