diff --git a/guix/import/stackage.scm b/guix/import/stackage.scm index 61012bed28..9554c3d7a4 100644 --- a/guix/import/stackage.scm +++ b/guix/import/stackage.scm @@ -151,9 +151,9 @@ (define latest-lts-release (G_ "~a updater doesn't support updating to a specific version, sorry.") "stackage"))) (let* ((hackage-name (package-upstream-name* pkg)) - (version (lts-package-version (packages) hackage-name)) - (name-version (hackage-name-version hackage-name version))) - (match (and=> name-version hackage-fetch) + (version (lts-package-version (packages) hackage-name))) + (match (and hackage-name version + (hackage-fetch hackage-name version)) (#f (warning (G_ "failed to parse ~a~%") (hackage-cabal-url hackage-name)) @@ -164,7 +164,8 @@ (define latest-lts-release (version version) (urls (list url)) (inputs - (let ((cabal (eval-cabal (hackage-fetch name-version) '()))) + (let ((cabal (eval-cabal (hackage-fetch hackage-name version) + '()))) (cabal-package-inputs cabal))))))))))) (define (stackage-lts-package? package)