03/03: gnu: arm-trusted-firmware: Remove blobs in a snippet.

[guix-commits]

efraim pushed a commit to branch master
in repository guix.

commit b3beeaa30981e49070ff28434b69aa234069bd2d
Author: Efraim Flashner <efraim@flashner.co.il>
AuthorDate: Thu Nov 24 10:17:11 2022 +0200

    gnu: arm-trusted-firmware: Remove blobs in a snippet.
    
    * gnu/packages/firmware.scm (make-arm-trusted-firmware)[source]: Add
    snippet to remove binary blobs.
    [arguments]: Remove related phase.
---
 gnu/packages/firmware.scm | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

diff --git a/gnu/packages/firmware.scm b/gnu/packages/firmware.scm
index 9f6c957113..e9bb3ed450 100644
--- a/gnu/packages/firmware.scm
+++ b/gnu/packages/firmware.scm
@@ -656,18 +656,19 @@ Virtual Machines.  OVMF contains a sample UEFI firmware 
for QEMU and KVM.")
         (file-name (git-file-name "arm-trusted-firmware" version))
        (sha256
         (base32
-         "0grq3fgxi9xhcljnhwlxjvdghyz15gaq50raw41xy4lm8rkmnzp3"))))
+         "0grq3fgxi9xhcljnhwlxjvdghyz15gaq50raw41xy4lm8rkmnzp3"))
+       (snippet
+        #~(begin
+            (use-modules (guix build utils))
+            ;; Remove binary blobs which do not contain source or proper 
license.
+            (for-each (lambda (file)
+                        (delete-file file))
+                      (find-files "." "\\.bin$"))))))
     (build-system gnu-build-system)
     (arguments
      `(#:phases
        (modify-phases %standard-phases
          (delete 'configure) ; no configure script
-         ;; Remove binary blobs which do not contain source or proper license.
-         (add-after 'unpack 'remove-binary-blobs
-           (lambda _
-             (for-each (lambda (file)
-                         (delete-file file))
-                       (find-files "." "\\.bin$"))))
          (replace 'install
            (lambda* (#:key outputs #:allow-other-keys)
              (let ((out (assoc-ref outputs "out"))