diff options
Diffstat (limited to 'guix/build-system/linux-module.scm')
| -rw-r--r-- | guix/build-system/linux-module.scm | 33 |
1 files changed, 19 insertions, 14 deletions
diff --git a/guix/build-system/linux-module.scm b/guix/build-system/linux-module.scm index 7bafee5a7a..57fce8e96e 100644 --- a/guix/build-system/linux-module.scm +++ b/guix/build-system/linux-module.scm @@ -2,6 +2,7 @@ ;;; Copyright © 2019 Danny Milosavljevic <dannym@scratchpost.org> ;;; Copyright © 2020 Mathieu Othacehe <m.othacehe@gmail.com> ;;; Copyright © 2021 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2021 Tobias Geerinckx-Rice <me@tobias.gr> ;;; ;;; This file is part of GNU Guix. ;;; @@ -158,6 +159,7 @@ (phases '%standard-phases) (outputs '("out")) (make-flags ''()) + (parallel-build? #t) (system (%current-system)) (source-directory ".") (guile #f) @@ -171,20 +173,22 @@ (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 - #: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))) @@ -201,6 +205,7 @@ (guile #f) (outputs '("out")) (make-flags ''()) + (parallel-build? #t) (search-paths '()) (native-search-paths '()) (tests? #f) |