mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-02-01 07:16:39 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: make-u-boot-package: Fix indentation.

Browse source 
* gnu/packages/bootloaders.scm (make-u-boot-package): Fix indentation.
This commit is contained in:
Maxim Cournoyer 2022-12-01 11:29:36 -05:00
parent 8d1d209ffe
commit e99dc7353f
No known key found for this signature in database
GPG key ID: 1260E46482E63562
1 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
gnu/packages/bootloaders.scm
View file

@ -699,9 +699,9 @@ (define*-public (make-u-boot-package board triplet #:key defconfig configs)
"_" "-"))) "_" "-")))
(native-inputs (native-inputs
`(,@(if (not (same-arch?)) `(,@(if (not (same-arch?))
`(("cross-gcc" ,(cross-gcc triplet)) `(("cross-gcc" ,(cross-gcc triplet))
("cross-binutils" ,(cross-binutils triplet))) ("cross-binutils" ,(cross-binutils triplet)))
`()) `())
,@(package-native-inputs u-boot))) ,@(package-native-inputs u-boot)))
(arguments (arguments
`(#:modules ((ice-9 ftw) `(#:modules ((ice-9 ftw)
@ -715,8 +715,8 @@ (define*-public (make-u-boot-package board triplet #:key defconfig configs)
#:make-flags #:make-flags
(list "HOSTCC=gcc" (list "HOSTCC=gcc"
,@(if (not (same-arch?)) ,@(if (not (same-arch?))
`((string-append "CROSS_COMPILE=" ,triplet "-")) `((string-append "CROSS_COMPILE=" ,triplet "-"))
'())) '()))
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(replace 'configure (replace 'configure
@ -735,7 +735,7 @@ (define*-public (make-u-boot-package board triplet #:key defconfig configs)
(apply invoke "make" `(,@make-flags ,config-name)) (apply invoke "make" `(,@make-flags ,config-name))
(verify-config ".config" config-file)) (verify-config ".config" config-file))
(begin (begin
(display "Invalid board name. Valid board names are:" (display "invalid board name; valid board names are:"
(current-error-port)) (current-error-port))
(let ((suffix-len (string-length "_defconfig")) (let ((suffix-len (string-length "_defconfig"))
(entries (scandir "configs"))) (entries (scandir "configs")))
@ -746,7 +746,7 @@ (define*-public (make-u-boot-package board triplet #:key defconfig configs)
(string-drop-right file-name (string-drop-right file-name
suffix-len)))) suffix-len))))
(sort entries string-ci<))) (sort entries string-ci<)))
(error "Invalid boardname ~s." ,board)))))) (error "invalid boardname ~s" ,board))))))
(add-after 'configure 'disable-tools-libcrypto (add-after 'configure 'disable-tools-libcrypto
;; Disable libcrypto due to GPL and OpenSSL license ;; Disable libcrypto due to GPL and OpenSSL license
;; incompatibilities ;; incompatibilities