Lispln/nonguix
1
0
Fork 0
mirror of https://gitlab.com/nonguix/nonguix.git synced 2024-11-30 04:04:11 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

nongnu: linux-firmware: Use gnu-build-system.

Browse source 
* nongnu/packages/linux.scm (linux-firmware): Use gnu-build-system.
This commit is contained in:
Alex Griffin 2020-01-05 11:50:23 -06:00
parent c249eba462
commit 1da9083f98
1 changed files with 11 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
nongnu/packages/linux.scm
View file

@ -25,6 +25,7 @@
#:use-module (guix utils) #:use-module (guix utils)
#:use-module (guix download) #:use-module (guix download)
#:use-module (guix git-download) #:use-module (guix git-download)
#:use-module (guix build-system gnu)
#:use-module (guix build-system linux-module) #:use-module (guix build-system linux-module)
#:use-module (guix build-system trivial) #:use-module (guix build-system trivial)
#:use-module (ice-9 match) #:use-module (ice-9 match)
@ -84,21 +85,17 @@ on hardware which requires nonfree software to function.")))
(sha256 (sha256
(base32 (base32
"024napabn3zwl8gr50w9cp4gdxhch8pkl2qx814c93ydkfj81znd")))) "024napabn3zwl8gr50w9cp4gdxhch8pkl2qx814c93ydkfj81znd"))))
(build-system trivial-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:modules ((guix build utils)) `(#:tests? #f
#:builder (begin #:phases
(use-modules (guix build utils)) (modify-phases %standard-phases
(let ((source (assoc-ref %build-inputs "source")) (replace 'install
(destination (string-append %output "/lib/firmware")) (lambda* (#:key outputs #:allow-other-keys)
(gzip (assoc-ref %build-inputs "gzip")) (let ((out (assoc-ref outputs "out")))
(tar (assoc-ref %build-inputs "tar"))) (invoke "make" "install"
(set-path-environment-variable "PATH" '("bin") (string-append "DESTDIR=" out)))))
(list tar gzip)) (delete 'validate-runpath))))
(invoke "tar" "--strip-components=1" "-xvf" source)
(mkdir-p destination)
(copy-recursively "." destination #:follow-symlinks? #t)
#t))))
(native-inputs (native-inputs
`(("gzip" ,gzip) `(("gzip" ,gzip)
("tar" ,tar))) ("tar" ,tar)))