diff options
| author | Julien Lepiller <julien@lepiller.eu> | 2020-12-08 13:58:49 +0100 |
|---|---|---|
| committer | Julien Lepiller <julien@lepiller.eu> | 2020-12-08 16:40:30 +0100 |
| commit | 15ee1b8317adeb74938f3bb7f0c7cb635a818292 (patch) | |
| tree | f08ac3629228fd6c4f52f2c7fc36777231259ca4 | |
| parent | 59873d94ceb97b5ca95d3dc7ea91332c66c753d2 (diff) | |
guix: opam: Pass default repository to recursive importer.
* guix/import/opam.scm (opam->guix-package): Rename #:repository key
to #:repo.
(opam-recursive-import): Pass #:repo keyword.
* tests/opam.scm (opam->guix-package): Rename #:repository to #:repo.
| -rw-r--r-- | guix/import/opam.scm | 9 | ||||
| -rw-r--r-- | tests/opam.scm | 2 |
2 files changed, 6 insertions, 5 deletions
diff --git a/guix/import/opam.scm b/guix/import/opam.scm index 4f366a9384..6e98822104 100644 --- a/guix/import/opam.scm +++ b/guix/import/opam.scm @@ -264,11 +264,11 @@ path to the repository." (substring version 1) version))))) -(define* (opam->guix-package name #:key (repository (get-opam-repository)) version) +(define* (opam->guix-package name #:key (repo (get-opam-repository)) version) "Import OPAM package NAME from REPOSITORY (a directory name) or, if REPOSITORY is #f, from the official OPAM repository. Return a 'package' sexp or #f on failure." - (and-let* ((opam-file (opam-fetch name repository)) + (and-let* ((opam-file (opam-fetch name repo)) (version (assoc-ref opam-file "version")) (opam-content (assoc-ref opam-file "metadata")) (url-dict (metadata-ref opam-content "url")) @@ -323,10 +323,11 @@ or #f on failure." (not (member name '("dune" "jbuilder")))) dependencies)))))))) -(define (opam-recursive-import package-name) +(define* (opam-recursive-import package-name #:repo (get-opam-repository)) (recursive-import package-name #:repo->guix-package opam->guix-package - #:guix-name ocaml-name->guix-name)) + #:guix-name ocaml-name->guix-name + #:repo repo)) (define (guix-name->opam-name name) (if (string-prefix? "ocaml-" name) diff --git a/tests/opam.scm b/tests/opam.scm index ec2a668307..8d43e2ce70 100644 --- a/tests/opam.scm +++ b/tests/opam.scm @@ -85,7 +85,7 @@ url { (with-output-to-file (string-append my-package "/opam") (lambda _ (format #t "~a" test-opam-file)))) - (match (opam->guix-package "foo" #:repository test-repo) + (match (opam->guix-package "foo" #:repo test-repo) (('package ('name "ocaml-foo") ('version "1.0.0") |