01/01: swh: Fix API call for getting origin.

[guix-commits]

hoebjo pushed a commit to branch master
in repository guix.

commit 356a79becc4061d158c68718ad169abac1ab672f
Author: Björn Höfling <address@hidden>
Date:   Sun Dec 15 22:00:56 2019 +0100

    swh: Fix API call for getting origin.
    
    When using the archival linter, git origins already in the archive where
    not recognized due to an API change and where repeatedly asked for archival.
    This is fixed here.
    
    * guix/swh.scm (lookup-origin): Fix API URI for getting origin.
    (<origin>): Fix comment with API URI example.
---
 guix/swh.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/guix/swh.scm b/guix/swh.scm
index 7acad05..372e4c8 100644
--- a/guix/swh.scm
+++ b/guix/swh.scm
@@ -244,7 +244,7 @@ FALSE-IF-404? is true, return #f upon 404 responses."
        docstring
        (call (swh-url components ...) json->value)))))
 
-;; 
<https://archive.softwareheritage.org/api/1/origin/git/url/https://github.com/guix-mirror/guix/>
+;; 
<https://archive.softwareheritage.org/api/1/origin//https://github.com/guix-mirror/guix/get>
 (define-json-mapping <origin> make-origin origin?
   json->origin
   (id origin-id)
@@ -365,7 +365,7 @@ FALSE-IF-404? is true, return #f upon 404 responses."
 
 (define-query (lookup-origin url)
   "Return an origin for URL."
-  (path "/api/1/origin/git/url" url)
+  (path "/api/1/origin" url "get")
   json->origin)
 
 (define-query (lookup-content hash type)