amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

build-system: linux-module: Don't explicitly return #t from phases.

Browse source 
* guix/build-system/linux-module.scm (configure): Remove explicit #t return value.
This commit is contained in:
Tobias Geerinckx-Rice 2021-10-01 15:02:43 +02:00
parent 834415c33a
commit bdd190e3aa
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
1 changed files with 4 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

9
guix/build/linux-module-build-system.scm
View file

@ -34,7 +34,7 @@
;; ;;
;; Code: ;; 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) (define* (configure #:key inputs target arch #:allow-other-keys)
(setenv "KCONFIG_NOTIMESTAMP" "1") (setenv "KCONFIG_NOTIMESTAMP" "1")
(setenv "KBUILD_BUILD_TIMESTAMP" (getenv "SOURCE_DATE_EPOCH")) (setenv "KBUILD_BUILD_TIMESTAMP" (getenv "SOURCE_DATE_EPOCH"))
@ -43,12 +43,11 @@
(format #t "`ARCH' set to `~a'~%" (getenv "ARCH")) (format #t "`ARCH' set to `~a'~%" (getenv "ARCH"))
(when target (when target
;; TODO? (setenv "EXTRA_VERSION" ,extra-version)
;; TODO? kernel ".config".
(setenv "CROSS_COMPILE" (string-append target "-")) (setenv "CROSS_COMPILE" (string-append target "-"))
(format #t "`CROSS_COMPILE' set to `~a'~%" (format #t "`CROSS_COMPILE' set to `~a'~%"
(getenv "CROSS_COMPILE"))) (getenv "CROSS_COMPILE"))))
; TODO: (setenv "EXTRA_VERSION" ,extra-version)
; TODO: kernel ".config".
#t)
(define* (build #:key (make-flags '()) (parallel-build? #t) (define* (build #:key (make-flags '()) (parallel-build? #t)
(source-directory ".") (source-directory ".")