TakeV/guix
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

import: pypi: Use 'with-error-handling'.

Browse source 
* guix/scripts/import/pypi.scm (guix-import-pypi): Wrap body in
'with-error-handling'.
This commit is contained in:
Ludovic Courtès 2022-02-02 15:53:55 +01:00
parent 2178692c93
commit 31ca569ca5
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 19 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

37
guix/scripts/import/pypi.scm
View file

@ -79,27 +79,28 @@ (define (parse-options)
(let* ((opts (parse-options)) (let* ((opts (parse-options))
(args (filter-map (match-lambda (args (filter-map (match-lambda
(('argument . value) (('argument . value)
value) value)
(_ #f)) (_ #f))
(reverse opts)))) (reverse opts))))
(match args (match args
((spec) ((spec)
(let ((name version (package-name->name+version spec))) (with-error-handling
(if (assoc-ref opts 'recursive) (let ((name version (package-name->name+version spec)))
;; Recursive import (if (assoc-ref opts 'recursive)
(map (match-lambda ;; Recursive import
((and ('package ('name name) . rest) pkg) (map (match-lambda
`(define-public ,(string->symbol name) ((and ('package ('name name) . rest) pkg)
,pkg)) `(define-public ,(string->symbol name)
(_ #f)) ,pkg))
(pypi-recursive-import name version)) (_ #f))
;; Single import (pypi-recursive-import name version))
(let ((sexp (pypi->guix-package name #:version version))) ;; Single import
(unless sexp (let ((sexp (pypi->guix-package name #:version version)))
(leave (G_ "failed to download meta-data for package '~a'~%") (unless sexp
name)) (leave (G_ "failed to download meta-data for package '~a'~%")
sexp)))) name))
sexp)))))
(() (()
(leave (G_ "too few arguments~%"))) (leave (G_ "too few arguments~%")))
((many ...) ((many ...)