nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

gnu: b43-tools: Update phase style. 

* gnu/packages/firmware.scm (b43-tools)[arguments]: Substitute INVOKE
for SYSTEM* and FOR-EACH for EVERY, and end phases with #t.
This commit is contained in:
Tobias Geerinckx-Rice 2018-03-01 23:19:27 +01:00
parent bb5c358204
commit 315c89f5ba
No known key found for this signature in database
GPG Key ID: 0DB0FF884F556D79
1 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
gnu/packages/firmware.scm
View File

@ -130,19 +130,20 @@ Linux-libre.")
#t)) #t))
(replace 'build (replace 'build
(lambda _ (lambda _
(every (lambda (dir) (for-each (lambda (dir)
(zero? (system* "make" "-C" dir "CC=gcc"))) (invoke "make" "-C" dir "CC=gcc"))
subdirs))) subdirs)
#t))
(replace 'install (replace 'install
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))) (let ((out (assoc-ref outputs "out")))
(mkdir-p (string-append out "/bin")) (mkdir-p (string-append out "/bin"))
(every (lambda (dir) (for-each (lambda (dir)
(zero? (invoke "make" "-C" dir
(system* "make" "-C" dir (string-append "PREFIX=" out)
(string-append "PREFIX=" out) "install"))
"install"))) subdirs)
subdirs)))))))) #t)))))))
(home-page (home-page
"http://bues.ch/cms/hacking/misc.html#linux_b43_driver_firmware_tools") "http://bues.ch/cms/hacking/misc.html#linux_b43_driver_firmware_tools")
(synopsis "Collection of tools for the b43 wireless driver") (synopsis "Collection of tools for the b43 wireless driver")