packages: Adjust to new calling convention for "thunked" fields.

Fixes <https://bugs.gnu.org/34995>.

This is a followup to abd4d6b33d.

* guix/packages.scm (package->bag): Adjust calls to INPUTS,
PROPAGATED-INPUTS, NATIVE-INPUTS, and ARGS, passing them SELF as an
argument.
* gnu/packages/gnucash.scm (gnucash)[arguments]: Use (package-inputs
this-record) intead of (inputs).
* gnu/packages/version-control.scm (git)[arguments]: Likewise.
This commit is contained in:
Ludovic Courtès 2019-03-26 10:22:15 +01:00
parent 6c177f6140
commit e6301fb76d
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
3 changed files with 15 additions and 12 deletions

View file

@ -27,6 +27,7 @@ (define-module (gnu packages gnucash)
#:use-module (guix download)
#:use-module (guix build-system gnu)
#:use-module (guix build-system cmake)
#:use-module ((guix records) #:select (this-record))
#:use-module (gnu packages)
#:use-module (gnu packages autotools)
#:use-module (gnu packages base)
@ -165,14 +166,14 @@ (define-public gnucash
,@(transitive-input-references
'inputs
(map (lambda (l)
(assoc l (inputs)))
(assoc l (package-inputs this-record)))
'("perl-finance-quote"
"perl-date-manip"))))
(list
,@(transitive-input-references
'inputs
(map (lambda (l)
(assoc l (inputs)))
(assoc l (package-inputs this-record)))
'("perl-finance-quote")))))))))
'("gnucash"
"gnc-fq-check"

View file

@ -51,6 +51,7 @@ (define-module (gnu packages version-control)
#:use-module (guix build-system haskell)
#:use-module (guix build-system python)
#:use-module (guix build-system trivial)
#:use-module ((guix records) #:select (this-record))
#:use-module (gnu packages apr)
#:use-module (gnu packages autotools)
#:use-module (gnu packages documentation)
@ -408,7 +409,7 @@ (define-public git
,@(transitive-input-references
'inputs
(map (lambda (l)
(assoc l (inputs)))
(assoc l (package-inputs this-record)))
'("perl-authen-sasl"
"perl-net-smtp-ssl"
"perl-io-socket-ssl")))))))
@ -421,7 +422,7 @@ (define-public git
,@(transitive-input-references
'inputs
(map (lambda (l)
(assoc l (inputs)))
(assoc l (package-inputs this-record)))
'("perl-cgi")))))))
;; Tell 'git-submodule' where Perl is.

View file

@ -1025,9 +1025,10 @@ (define* (package->bag package #:optional
(match (if graft?
(or (package-replacement package) package)
package)
(($ <package> name version source build-system
((and self
($ <package> name version source build-system
args inputs propagated-inputs native-inputs
self-native-input? outputs)
self-native-input? outputs))
;; Even though we prefer to use "@" to separate the package
;; name from the package version in various user-facing parts
;; of Guix, checkStoreName (in nix/libstore/store-api.cc)
@ -1036,15 +1037,15 @@ (define* (package->bag package #:optional
#:system system
#:target target
#:source source
#:inputs (append (inputs)
(propagated-inputs))
#:inputs (append (inputs self)
(propagated-inputs self))
#:outputs outputs
#:native-inputs `(,@(if (and target
self-native-input?)
`(("self" ,package))
`(("self" ,self))
'())
,@(native-inputs))
#:arguments (args))
,@(native-inputs self))
#:arguments (args self))
(raise (if target
(condition
(&package-cross-build-system-error