diff options
| author | Tobias Geerinckx-Rice <me@tobias.gr> | 2021-10-01 15:02:43 +0200 |
|---|---|---|
| committer | Tobias Geerinckx-Rice <me@tobias.gr> | 2021-10-01 21:27:35 +0200 |
| commit | bdd190e3aafa9b54ed93fefbe7c0307a9103d3ad (patch) | |
| tree | 54bd289ce2c52614a466cef8addf5fd4682fafe9 | |
| parent | 834415c33a2fd909e410a5cf352c597f05bb6999 (diff) | |
| download | guix-bdd190e3aafa9b54ed93fefbe7c0307a9103d3ad.tar.gz | |
build-system: linux-module: Don't explicitly return #t from phases.
* guix/build-system/linux-module.scm (configure): Remove explicit #t return value.
| -rw-r--r-- | guix/build/linux-module-build-system.scm | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/guix/build/linux-module-build-system.scm b/guix/build/linux-module-build-system.scm index 7c0dba8445..18ccf7cd8b 100644 --- a/guix/build/linux-module-build-system.scm +++ b/guix/build/linux-module-build-system.scm @@ -34,7 +34,7 @@ ;; ;; Code: -;; Copied from make-linux-libre's "configure" phase. +;; Similar to make-linux-libre's "configure" phase. (define* (configure #:key inputs target arch #:allow-other-keys) (setenv "KCONFIG_NOTIMESTAMP" "1") (setenv "KBUILD_BUILD_TIMESTAMP" (getenv "SOURCE_DATE_EPOCH")) @@ -43,12 +43,11 @@ (format #t "`ARCH' set to `~a'~%" (getenv "ARCH")) (when target + ;; TODO? (setenv "EXTRA_VERSION" ,extra-version) + ;; TODO? kernel ".config". (setenv "CROSS_COMPILE" (string-append target "-")) (format #t "`CROSS_COMPILE' set to `~a'~%" - (getenv "CROSS_COMPILE"))) - ; TODO: (setenv "EXTRA_VERSION" ,extra-version) - ; TODO: kernel ".config". - #t) + (getenv "CROSS_COMPILE")))) (define* (build #:key (make-flags '()) (parallel-build? #t) (source-directory ".") |