03/03: swh: Adjust <vault-reply> to latest API changes.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit fb32a38db1d3a6d9bc970e14df5be95e59a8ab02
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Thu Sep 9 11:18:06 2021 +0200

    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.
---
 guix/swh.scm | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/guix/swh.scm b/guix/swh.scm
index 922d781..76234b4 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))
 
 
 ;;;