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

* nongnu/packages/linux.scm (iwlwifi-firmware): Use gnu-build-system.

1 files changed, 14 insertions, 21 deletions

diff --git a/nongnu/packages/linux.scm b/nongnu/packages/linux.scm
index 16c5fb5..63a5281 100644
--- a/nongnu/packages/linux.scm
+++ b/nongnu/packages/linux.scm
@@ -180,28 +180,21 @@ is the Linux Bluetooth driver for Atheros AR3011/AR3012 Bluetooth chipsets.")
   (package
     (inherit linux-firmware)
     (name "iwlwifi-firmware")
-    (build-system trivial-build-system)
+    (build-system gnu-build-system)
     (arguments
-     `(#:modules ((guix build utils))
-       #:builder
-       (begin
-         (use-modules (guix build utils))
-         (let ((source (assoc-ref %build-inputs "source"))
-               (fw-dir (string-append %output "/lib/firmware/"))
-               (gzip (assoc-ref %build-inputs "gzip"))
-               (tar (assoc-ref %build-inputs "tar")))
-           (set-path-environment-variable "PATH" '("bin")
-                                          (list tar gzip))
-           (invoke "tar" "--strip-components=1" "-xvf" source)
-           (mkdir-p fw-dir)
-           (for-each (lambda (file)
-                       (copy-file file
-                                  (string-append fw-dir (basename file))))
-                     (cons*
-                      "./LICENCE.iwlwifi_firmware"
-                      (find-files "."
-                                  "iwlwifi-.*\\.ucode$")))
-           #t))))
+     `(#:tests? #f
+       #:license-file-regexp "LICENCE.iwlwifi_firmware"
+       #:phases
+       (modify-phases %standard-phases
+         (replace 'install
+           (lambda* (#:key outputs #:allow-other-keys)
+             (let* ((out (assoc-ref outputs "out"))
+                    (fw-dir (string-append out "/lib/firmware")))
+               (for-each (lambda (file)
+                           (install-file file fw-dir))
+                         (find-files "." "iwlwifi-.*\\.ucode$"))
+               #t)))
+         (delete 'validate-runpath))))
     (home-page "https://wireless.wiki.kernel.org/en/users/drivers/iwlwifi")
     (synopsis "Nonfree firmware for Intel wifi chips")
     (description "The proprietary iwlwifi kernel module is required by many