mirror/guix
mirror/guix
1
Fork 0
mirror of https://https.git.savannah.gnu.org/git/guix.git/ synced 2025-07-17 04:20:44 +02:00
Code Releases Activity

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)
(name "ovmf-x86-64")
(arguments
(substitute-keyword-arguments (package-arguments base)
((#:phases phases)
#~(modify-phases #$phases
(replace 'install
(lambda _
(let ((fmw (string-append #$output "/share/firmware")))
(mkdir-p fmw)
(for-each
(lambda (file)
(copy-file
(string-append "Build/OvmfX64/RELEASE_GCC"
"/FV/" file ".fd")
(string-append fmw "/" (string-downcase file) "_x64.bin")))
(list "OVMF"
"OVMF_CODE"
"OVMF_VARS"))))))))))))
(substitute-keyword-arguments (package-arguments base)
((#:phases phases)
#~(modify-phases #$phases
(replace 'install
(lambda _
(let ((fmw (string-append #$output "/share/firmware")))
(mkdir-p fmw)
(for-each
(lambda (file)
(copy-file
(string-append "Build/OvmfX64/RELEASE_GCC"
"/FV/" file ".fd")
(string-append fmw "/" (string-downcase file) "_x64.bin")))
(list "OVMF"
"OVMF_CODE"
"OVMF_VARS"))))))))))))
(define-public ovmf-i686
(let ((base (make-ovmf-firmware "i686")))