build-system: qt: Ensure a default value is provided for #:qtbase.

* guix/build-system/qt.scm (qt-build)[qtbase]: Specify a default value.  Lower
it using ungexp-native.
(qt-cross-build): Likewise.

Reported-by: Maxime Devos <maximedevos@telenet.be> and others.
This commit is contained in:
Maxim Cournoyer 2022-08-01 11:58:39 -04:00
parent f1b9ae8c20
commit 4905b5b839
No known key found for this signature in database
GPG key ID: 1260E46482E63562

View file

@ -122,7 +122,7 @@ (define private-keywords
(define* (qt-build name inputs
#:key
qtbase
(qtbase (default-qtbase))
source (guile #f)
(outputs '("out")) (configure-flags ''())
(search-paths '())
@ -161,7 +161,7 @@ (define builder
#:phases #$(if (pair? phases)
(sexp->gexp phases)
phases)
#:qtbase #$qtbase
#:qtbase #+qtbase
#:qt-wrap-excluded-outputs #$qt-wrap-excluded-outputs
#:qt-wrap-excluded-inputs #$qt-wrap-excluded-inputs
#:configure-flags #$configure-flags
@ -193,7 +193,7 @@ (define* (qt-cross-build name
#:key
source target
build-inputs target-inputs host-inputs
qtbase
(qtbase (default-qtbase))
(guile #f)
(outputs '("out"))
(configure-flags ''())
@ -250,7 +250,7 @@ (define %outputs
search-path-specification->sexp
native-search-paths)
#:phases #$phases
#:qtbase #$qtbase
#:qtbase #+qtbase
#:configure-flags #$configure-flags
#:make-flags #$make-flags
#:out-of-source? #$out-of-source?