gnu: kmod: Update phase style.
* gnu/packages/linux.scm (kmod)[arguments]: Use MODIFY-PHASES syntax and end phase in #t.
This commit is contained in:
parent
eb67a470c7
commit
9f2eb4ffad
|
@ -1950,19 +1950,20 @@ to use Linux' inotify mechanism, which allows file accesses to be monitored.")
|
||||||
`(("xz" ,xz)
|
`(("xz" ,xz)
|
||||||
("zlib" ,zlib)))
|
("zlib" ,zlib)))
|
||||||
(arguments
|
(arguments
|
||||||
`(#:tests? #f ; FIXME: Investigate test failures
|
`(#:tests? #f ; FIXME: Investigate test failures
|
||||||
#:configure-flags '("--with-xz" "--with-zlib")
|
#:configure-flags '("--with-xz" "--with-zlib")
|
||||||
#:phases (alist-cons-after
|
#:phases
|
||||||
'install 'install-modprobe&co
|
(modify-phases %standard-phases
|
||||||
(lambda* (#:key outputs #:allow-other-keys)
|
(add-after 'install 'install-modprobe&co
|
||||||
(let* ((out (assoc-ref outputs "out"))
|
(lambda* (#:key outputs #:allow-other-keys)
|
||||||
(bin (string-append out "/bin")))
|
(let* ((out (assoc-ref outputs "out"))
|
||||||
(for-each (lambda (tool)
|
(bin (string-append out "/bin")))
|
||||||
(symlink "kmod"
|
(for-each (lambda (tool)
|
||||||
(string-append bin "/" tool)))
|
(symlink "kmod"
|
||||||
'("insmod" "rmmod" "lsmod" "modprobe"
|
(string-append bin "/" tool)))
|
||||||
"modinfo" "depmod"))))
|
'("insmod" "rmmod" "lsmod" "modprobe"
|
||||||
%standard-phases)))
|
"modinfo" "depmod"))
|
||||||
|
#t))))))
|
||||||
(home-page "https://www.kernel.org/")
|
(home-page "https://www.kernel.org/")
|
||||||
(synopsis "Kernel module tools")
|
(synopsis "Kernel module tools")
|
||||||
(description "Kmod is a set of tools to handle common tasks with Linux
|
(description "Kmod is a set of tools to handle common tasks with Linux
|
||||||
|
|
Loading…
Reference in New Issue