From 9f955a1cfd8f3b8fe066034878131f0e2518740b Mon Sep 17 00:00:00 2001
From: Tobias Geerinckx-Rice <me@tobias.gr>
Date: Wed, 15 Dec 2021 04:56:00 +0100
Subject: build-system/linux-module: Wrap with build variables.

* guix/build-system/linux-module.scm (linux-module-build): Wrap the
builder gexp WITH-BUILD-VARIABLES to restore %build-inputs after commit
7d873f194ca69d6096d28d7a224ab78e83e34fe1 removed all old certainties.

Reported by lfam in #guix.
---
 guix/build-system/linux-module.scm | 31 ++++++++++++++++---------------
 1 file changed, 16 insertions(+), 15 deletions(-)

diff --git a/guix/build-system/linux-module.scm b/guix/build-system/linux-module.scm
index 0eab919deb..57fce8e96e 100644
--- a/guix/build-system/linux-module.scm
+++ b/guix/build-system/linux-module.scm
@@ -173,21 +173,22 @@ (define builder
     (with-imported-modules imported-modules
       #~(begin
           (use-modules #$@(sexp->gexp modules))
-          (linux-module-build #:name #$name
-                              #:source #+source
-                              #:source-directory #$source-directory
-                              #:search-paths '#$(sexp->gexp
-                                                 (map search-path-specification->sexp
-                                                      search-paths))
-                              #:phases #$phases
-                              #:system #$system
-                              #:target #$target
-                              #:arch #$(system->arch (or target system))
-                              #:tests? #$tests?
-                              #:outputs #$(outputs->gexp outputs)
-                              #:make-flags #$make-flags
-                              #:parallel-build? #$parallel-build?
-                              #:inputs #$(input-tuples->gexp inputs)))))
+          #$(with-build-variables inputs outputs
+              #~(linux-module-build #:name #$name
+                                    #:source #+source
+                                    #:source-directory #$source-directory
+                                    #:search-paths '#$(sexp->gexp
+                                                       (map search-path-specification->sexp
+                                                            search-paths))
+                                    #:phases #$phases
+                                    #:system #$system
+                                    #:target #$target
+                                    #:arch #$(system->arch (or target system))
+                                    #:tests? #$tests?
+                                    #:outputs #$(outputs->gexp outputs)
+                                    #:make-flags #$make-flags
+                                    #:parallel-build? #$parallel-build?
+                                    #:inputs #$(input-tuples->gexp inputs))))))
 
   (mlet %store-monad ((guile (package->derivation (or guile (default-guile))
                                                   system #:graft? #f)))
-- 
cgit v1.2.3