mirror of
https://git.savannah.gnu.org/git/guix.git
synced 2026-04-06 21:20:33 +02:00
import: hexpm: Allow updating to a specific version.
* guix/import/hexpm.scm (latest-release): Rename to 'import-release', add #:version argument. If version is given, return an upstream-source for this version.
This commit is contained in:
@@ -328,11 +328,12 @@ latest version of PACKAGE-NAME."
|
||||
;;; Updater
|
||||
;;;
|
||||
|
||||
(define (latest-release package)
|
||||
"Return an <upstream-source> for the latest release of PACKAGE."
|
||||
(define* (import-release package #:key (version #f))
|
||||
"Return an <upstream-source> for the latest release of PACKAGE. Optionally
|
||||
include a VERSION string to fetch a specific version."
|
||||
(let* ((hexpm-name (guix-package->hexpm-name package))
|
||||
(hexpm (lookup-hexpm hexpm-name))
|
||||
(version (hexpm-latest-release hexpm))
|
||||
(version (or version (hexpm-latest-release hexpm)))
|
||||
(url (hexpm-uri hexpm-name version)))
|
||||
(upstream-source
|
||||
(package (package-name package))
|
||||
@@ -344,4 +345,4 @@ latest version of PACKAGE-NAME."
|
||||
(name 'hexpm)
|
||||
(description "Updater for hex.pm packages")
|
||||
(pred (url-prefix-predicate hexpm-package-url))
|
||||
(import latest-release)))
|
||||
(import import-release)))
|
||||
|
||||
Reference in New Issue
Block a user