me
/
guix
Archived
1
0
Fork 0
Code

scripts: import: elpa: Warn when version is specified. 

* guix/scripts/import/elpa.scm (guix-import-elpa): Warn when version is
specified.

Signed-off-by: Josselin Poiret <dev@jpoiret.xyz>
master
Simon Tournier 2023-05-15 19:45:44 +02:00 committed by Josselin Poiret
parent 0540f4e20d
commit b89ab866bc
No known key found for this signature in database
GPG Key ID: 505E40B916171A8A
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
guix/scripts/import/elpa.scm
View File

@ -3,6 +3,7 @@
;;; Copyright © 2018 Oleg Pykhalov <go.wigust@gmail.com> ;;; Copyright © 2018 Oleg Pykhalov <go.wigust@gmail.com>
;;; Copyright © 2020 Martin Becze <mjbecze@riseup.net> ;;; Copyright © 2020 Martin Becze <mjbecze@riseup.net>
;;; Copyright © 2021 Sarah Morgensen <iskarian@mgsn.dev> ;;; Copyright © 2021 Sarah Morgensen <iskarian@mgsn.dev>
;;; Copyright © 2023 Simon Tournier <zimon.toutoune@gmail.com>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -91,7 +92,11 @@ Import the latest package named PACKAGE-NAME from an ELPA repository.\n"))
(_ #f)) (_ #f))
(reverse opts)))) (reverse opts))))
(match args (match args
((package-name) ((spec)
(define-values (package-name version)
(package-name->name+version spec))
(when version
(warning (G_ "this importer does not consider the version~%")))
(if (assoc-ref opts 'recursive) (if (assoc-ref opts 'recursive)
(with-error-handling (with-error-handling
(map (match-lambda (map (match-lambda