mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-18 21:46:35 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

import: stackage: Adjust to fix failing lint test.

Browse source 
Commit abc3eb3319 ("import: hackage: Support updating to a specific
version.") modified the signature of hackage-fetch; some code was still
calling `hackage-fetch' with a single argument, breaking the tests/lint.scm
test.

* guix/import/stackage.scm (latest-lts-release): Adjust calls to
`hackage-fetch'.

Change-Id: Ic83ebc12a7948023956fe30cfb8aa22b6d282fc6
This commit is contained in:
Maxim Cournoyer 2024-11-17 16:51:13 +09:00
parent d5107b0c5a
commit 737d1b4fb1
No known key found for this signature in database
GPG key ID: 1260E46482E63562
1 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
guix/import/stackage.scm
View file

@ -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)