diff --git a/guix/swh.scm b/guix/swh.scm index 7acad05928..372e4c84d1 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))))) -;; +;; (define-json-mapping 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)