26 lines
1 KiB
Scheme
26 lines
1 KiB
Scheme
(define-module (home-packages firmware)
|
|
#:use-module (guix packages)
|
|
#:use-module (guix utils)
|
|
#:use-module (gnu packages)
|
|
#:use-module (gnu packages package-management)
|
|
#:use-module (gnu packages build-tools)
|
|
#:use-module (gnu packages virtualization)
|
|
#:use-module (gnu packages firmware)
|
|
#:use-module (guix gexp))
|
|
|
|
(define-public ovmf-new
|
|
(package
|
|
(inherit ovmf)
|
|
(name "ovmf-new")
|
|
(arguments
|
|
(substitute-keyword-arguments (package-arguments ovmf)
|
|
((#:phases phases)
|
|
#~(modify-phases #$phases
|
|
(replace 'install
|
|
(lambda _
|
|
(let ((fmw (string-append #$output "/share/firmware")))
|
|
(mkdir-p fmw)
|
|
(copy-recursively "Build/OvmfX64/RELEASE_GCC49/FV" fmw)
|
|
(copy-file "Build/OvmfX64/RELEASE_GCC49/FV/OVMF.fd" (string-append fmw "/OVMF_CODE.fd"))
|
|
)))
|
|
))))))
|