mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-30 14:26:48 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: kmod: Update phase style.

Browse source 
* gnu/packages/linux.scm (kmod)[arguments]: Use MODIFY-PHASES syntax and
end phase in #t.
This commit is contained in:
Tobias Geerinckx-Rice 2018-02-19 20:22:26 +01:00
parent eb67a470c7
commit 9f2eb4ffad
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
1 changed files with 13 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
gnu/packages/linux.scm
View file

@ -1950,19 +1950,20 @@ (define-public kmod
`(("xz" ,xz)
("zlib" ,zlib)))
(arguments
`(#:tests? #f ; FIXME: Investigate test failures
`(#:tests? #f ; FIXME: Investigate test failures
#:configure-flags '("--with-xz" "--with-zlib")
#:phases (alist-cons-after
'install 'install-modprobe&co
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(bin (string-append out "/bin")))
(for-each (lambda (tool)
(symlink "kmod"
(string-append bin "/" tool)))
'("insmod" "rmmod" "lsmod" "modprobe"
"modinfo" "depmod"))))
%standard-phases)))
#:phases
(modify-phases %standard-phases
(add-after 'install 'install-modprobe&co
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(bin (string-append out "/bin")))
(for-each (lambda (tool)
(symlink "kmod"
(string-append bin "/" tool)))
'("insmod" "rmmod" "lsmod" "modprobe"
"modinfo" "depmod"))
#t))))))
(home-page "https://www.kernel.org/")
(synopsis "Kernel module tools")
(description "Kmod is a set of tools to handle common tasks with Linux