From a956c7df87536717e4e04af11ae6d73dcb7a2ce7 Mon Sep 17 00:00:00 2001 From: Maxim Cournoyer Date: Thu, 4 Aug 2022 11:47:03 -0400 Subject: [PATCH] build: qt-utils: Fix another regression. This fixes another regression introduced with 1f466ed6be932526fc69e72ffd50390691d0d382, which affected the packages bitmask, hime, hime, nimf and vorta. The fix is to provide a default qt-major-version when #:qtbase is missing, such as when borrowing the qt-wrap phase in a package not using the Qt build system. * guix/build/qt-utils.scm (wrap-all-qt-programs)[qt-major-version]: Fall-back to %default-qt-major-version when #:qtbase is #f. Reported-by: John Kehayias and others. --- guix/build/qt-utils.scm | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/guix/build/qt-utils.scm b/guix/build/qt-utils.scm index 180b3aad77..2e47f1bc02 100644 --- a/guix/build/qt-utils.scm +++ b/guix/build/qt-utils.scm @@ -144,9 +144,13 @@ (define* (wrap-all-qt-programs #:key inputs outputs to contain any Qt binaries, and where wrapping would gratuitously add a dependency of that output on Qt." (define qt-major-version - (let ((_ version (package-name->name+version - (strip-store-file-name qtbase)))) - (first (string-split version #\.)))) + (if qtbase + (let ((_ version (package-name->name+version + (strip-store-file-name qtbase)))) + (first (string-split version #\.))) + ;; Provide a fall-back for build systems not having a #:qtbase + ;; argument. + %default-qt-major-version)) (define (find-files-to-wrap output-dir) (append-map