mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-18 21:46:35 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: cpulimit: Use make-flags.

Browse source 
* gnu/packages/admin.scm (cpulimit)[arguments]: Introduce make-flags.
Use them in custom 'build and 'check phases.
This commit is contained in:
Efraim Flashner 2020-11-16 11:14:33 +02:00
parent bc63198830
commit 6e26bd5b7f
No known key found for this signature in database
GPG key ID: 41AAE7DCCA3D8351
1 changed files with 6 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
gnu/packages/admin.scm
View file

@ -2383,17 +2383,18 @@ (define-public cpulimit
`(#:phases (modify-phases %standard-phases
(delete 'configure)
(replace 'build
(lambda _
(invoke "make" (string-append "CC=" ,(cc-for-target)) "-Csrc")))
(lambda* (#:key make-flags #:allow-other-keys)
(apply invoke "make" "-Csrc" make-flags)))
(replace 'check
(lambda _
(invoke "make" (string-append "CC=" ,(cc-for-target)) "-Ctests")))
(lambda* (#:key make-flags #:allow-other-keys)
(apply invoke "make" "-Ctests" make-flags)))
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(bin (string-append out "/bin")))
(install-file "src/cpulimit" bin))
#t)))))
#t)))
#:make-flags (list (string-append "CC=" ,(cc-for-target)))))
(home-page "https://github.com/opsengine/cpulimit")
(synopsis "Limit CPU usage")
(description