summaryrefslogtreecommitdiff
path: root/guix/upstream.scm
diff options
context:
space:
mode:
authorTobias Geerinckx-Rice <me@tobias.gr>2021-10-08 23:26:24 +0200
committerTobias Geerinckx-Rice <me@tobias.gr>2021-10-08 23:31:34 +0200
commita1679b74c9aa20bb51bc4add82ebb7ba78926b9c (patch)
tree40457ca25c4bf06e203b2b261b15977d2ee36891 /guix/upstream.scm
parentea3d456a5a4ec1bc4cf9a60f04c2ed49881f2b67 (diff)
Revert the #51061 patch series for now.
This reverts commits f63c79bf7674df012517f8e9148f94c611e35f32 ..f86f7e24b39928247729020df0134e2e1c4cde62 for more chillax reviewing. See <https://issues.guix.gnu.org/51061#32>.
Diffstat (limited to 'guix/upstream.scm')
-rw-r--r--guix/upstream.scm20
1 files changed, 1 insertions, 19 deletions
diff --git a/guix/upstream.scm b/guix/upstream.scm
index f1fb84eb45..632e9ebc4f 100644
--- a/guix/upstream.scm
+++ b/guix/upstream.scm
@@ -24,10 +24,6 @@
#:use-module (guix discovery)
#:use-module ((guix download)
#:select (download-to-store url-fetch))
- #:use-module ((guix hexpm-download)
- #:select (hexpm-fetch))
- #:use-module ((guix extracting-download)
- #:select (download-to-store/extract))
#:use-module (guix gnupg)
#:use-module (guix packages)
#:use-module (guix diagnostics)
@@ -434,23 +430,9 @@ SOURCE, an <upstream-source>."
#:key-download key-download)))
(values version tarball source))))))
-(define* (package-update/hexpm-fetch store package source
- #:key key-download)
- "Return the version, tarball, and SOURCE, to update PACKAGE to
-SOURCE, an <upstream-source>."
- (match source
- (($ <upstream-source> _ version urls signature-urls)
- (let* ((url (first urls))
- (name (or (origin-file-name (package-source package))
- (string-append (basename url) ".gz")))
- (tarball (download-to-store/extract
- store url "contents.tar.gz" name)))
- (values version tarball source)))))
-
(define %method-updates
;; Mapping of origin methods to source update procedures.
- `((,url-fetch . ,package-update/url-fetch)
- (,hexpm-fetch . ,package-update/hexpm-fetch)))
+ `((,url-fetch . ,package-update/url-fetch)))
(define* (package-update store package
#:optional (updaters (force %updaters))