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

gnu: ovmf-x86-64: Fix indentation.

Browse source 
* gnu/packages/firmware.scm (ovmf-x86-64): Fix indentation.

Change-Id: I663987b2ea69c7d6e1d8eaf35ad6bd8a6395c7df
This commit is contained in:
Maxim Cournoyer 2025-03-18 00:16:26 +09:00
parent 8b6e9acc26
commit 00d42f6b3f
No known key found for this signature in database
GPG key ID: 1260E46482E63562
1 changed files with 16 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

32
gnu/packages/firmware.scm
View file

@ -1007,22 +1007,22 @@ Virtual Machines. OVMF contains a sample UEFI firmware for QEMU and KVM.")
(inherit base) (inherit base)
(name "ovmf-x86-64") (name "ovmf-x86-64")
(arguments (arguments
(substitute-keyword-arguments (package-arguments base) (substitute-keyword-arguments (package-arguments base)
((#:phases phases) ((#:phases phases)
#~(modify-phases #$phases #~(modify-phases #$phases
(replace 'install (replace 'install
(lambda _ (lambda _
(let ((fmw (string-append #$output "/share/firmware"))) (let ((fmw (string-append #$output "/share/firmware")))
(mkdir-p fmw) (mkdir-p fmw)
(for-each (for-each
(lambda (file) (lambda (file)
(copy-file (copy-file
(string-append "Build/OvmfX64/RELEASE_GCC" (string-append "Build/OvmfX64/RELEASE_GCC"
"/FV/" file ".fd") "/FV/" file ".fd")
(string-append fmw "/" (string-downcase file) "_x64.bin"))) (string-append fmw "/" (string-downcase file) "_x64.bin")))
(list "OVMF" (list "OVMF"
"OVMF_CODE" "OVMF_CODE"
"OVMF_VARS")))))))))))) "OVMF_VARS"))))))))))))
(define-public ovmf-i686 (define-public ovmf-i686
(let ((base (make-ovmf-firmware "i686"))) (let ((base (make-ovmf-firmware "i686")))