summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSaku Laesvuori <saku@laesvuori.fi>2023-12-02 19:23:05 +0200
committerLars-Dominik Braun <lars@6xq.net>2023-12-03 09:11:29 +0100
commitacef524961d4da3464dbc392699fbe7deb0a467b (patch)
tree96002012ac10397b23b2daba6bc0ac78142ee4df
parent160385c013b0403af427b61b1d1cc9a75bc3315d (diff)
guix: import: stackage: Fix crash on recursive import
* guix/import/stackage.scm (lts-package-version): Call stackage-package-version only when the package is found. Change-Id: Ic8d7c1b7a42a9c1a6cbba567e148706507a53ee3 Signed-off-by: Lars-Dominik Braun <lars@6xq.net>
-rw-r--r--guix/import/stackage.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/guix/import/stackage.scm b/guix/import/stackage.scm
index 00814c7d46..f801835b33 100644
--- a/guix/import/stackage.scm
+++ b/guix/import/stackage.scm
@@ -92,7 +92,7 @@
"Return the version of the package with upstream NAME included in PACKAGES."
(let ((pkg (find (lambda (pkg) (string=? (stackage-package-name pkg) name))
packages)))
- (stackage-package-version pkg)))
+ (and=> pkg stackage-package-version)))
;;;