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: SeaBIOS: Simplify build.

Browse source 
* gnu/packages/firmware.scm (seabios)[arguments]: Don't install bios.bin
twice.  Drop redundant append step.
This commit is contained in:
Marius Bakke 2022-12-17 01:12:40 +01:00
parent f7793ce0e0
commit ec76f45d30
No known key found for this signature in database
GPG key ID: A2A06DF2A33A54FA
1 changed files with 1 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
gnu/packages/firmware.scm
View file

@ -450,7 +450,7 @@ (define-public seabios
(string-drop-right entry 2)) (string-drop-right entry 2))
(format port "CONFIG_~a~%" entry))) (format port "CONFIG_~a~%" entry)))
(cons "BUILD_VGABIOS=y" config)))) (cons "BUILD_VGABIOS=y" config))))
(apply invoke "make" (append flags '("oldnoconfig"))) (apply invoke "make" "oldnoconfig" flags)
(apply invoke "make" flags) (apply invoke "make" flags)
(link (string-append target "/bios.bin") (link (string-append target "/bios.bin")
(string-append "out/" target ".bin"))))) (string-append "out/" target ".bin")))))
@ -469,8 +469,6 @@ (define-public seabios
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out")) (let* ((out (assoc-ref outputs "out"))
(fmw (string-append out "/share/firmware"))) (fmw (string-append out "/share/firmware")))
(mkdir-p fmw)
(copy-file "out/bios.bin" (string-append fmw "/bios.bin"))
(for-each (lambda (bios) (for-each (lambda (bios)
(install-file bios fmw)) (install-file bios fmw))
(find-files "out" "\\.bin$")) (find-files "out" "\\.bin$"))