diff options
author | Lars-Dominik Braun <lars@6xq.net> | 2021-09-16 08:12:17 +0200 |
---|---|---|
committer | Lars-Dominik Braun <lars@6xq.net> | 2021-10-08 09:13:51 +0200 |
commit | 127828ddd74fc950c0403ca58a6f650355e3d67d (patch) | |
tree | b798330350fb17503762ec254e4412ef722d7d65 /guix/import/stackage.scm | |
parent | 8b4d3a523fc20ba7c3c65e6a60d6dd11e789831f (diff) |
import: stackage: Support input changes.
* guix/import/stackage.scm (latest-lts-release): Rename package to pkg
to avoid name conflict and add input-changes.
Diffstat (limited to 'guix/import/stackage.scm')
-rw-r--r-- | guix/import/stackage.scm | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/guix/import/stackage.scm b/guix/import/stackage.scm index c7247f5ff8..f58c6b163d 100644 --- a/guix/import/stackage.scm +++ b/guix/import/stackage.scm @@ -139,10 +139,10 @@ included in the Stackage LTS release." (mlambda () (stackage-lts-packages (stackage-lts-info-fetch %default-lts-version))))) - (lambda* (package) + (lambda* (pkg) "Return an <upstream-source> for the latest Stackage LTS release of PACKAGE or #f if the package is not included in the Stackage LTS release." - (let* ((hackage-name (guix-package->hackage-name package)) + (let* ((hackage-name (guix-package->hackage-name pkg)) (version (lts-package-version (packages) hackage-name)) (name-version (hackage-name-version hackage-name version))) (match (and=> name-version hackage-fetch) @@ -152,9 +152,13 @@ PACKAGE or #f if the package is not included in the Stackage LTS release." #f) (_ (let ((url (hackage-source-url hackage-name version))) (upstream-source - (package (package-name package)) + (package (package-name pkg)) (version version) - (urls (list url)))))))))) + (urls (list url)) + (input-changes + (changed-inputs + pkg + (stackage->guix-package hackage-name #:packages (packages)))))))))))) (define (stackage-lts-package? package) "Return whether PACKAGE is available on the default Stackage LTS release." |