TakeV/guix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

gnu: tmon: Update package style.

Browse source 
* gnu/packages/linux.scm (tmon)[arguments]: Use G-expressions.
Don't explicitly return #t from phases.
This commit is contained in:
Tobias Geerinckx-Rice 2023-07-23 02:00:00 +02:00
parent b4098eecde
commit 35f174ad00
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
1 changed files with 16 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

34
gnu/packages/linux.scm
View file

@ -6526,24 +6526,22 @@ (define-public tmon
(source (package-source linux-libre))
(build-system gnu-build-system)
(arguments
`(#:tests? #f ; no test suite
#:make-flags
(list (string-append "CC=" ,(cc-for-target))
(string-append "INSTALL_ROOT=" (assoc-ref %outputs "out"))
"BINDIR=bin")
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'enter-subdirectory
(lambda _
(chdir "tools/thermal/tmon")
#t))
(add-after 'install 'install-man-page
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(man8 (string-append out "/share/man/man8")))
(install-file "tmon.8" man8)
#t)))
(delete 'configure)))) ; no configure script
(list
#:tests? #f ; no test suite
#:make-flags
#~(list (string-append "CC=" #$(cc-for-target))
(string-append "INSTALL_ROOT=" #$output)
"BINDIR=bin")
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'enter-subdirectory
(lambda _
(chdir "tools/thermal/tmon")))
(add-after 'install 'install-man-page
(lambda _
(let ((man8 (string-append #$output "/share/man/man8")))
(install-file "tmon.8" man8))))
(delete 'configure)))) ; no configure script
(inputs
(list ncurses))
(home-page (package-home-page linux-libre))