04/06: gnu: cpulimit: Use make-flags.

[guix-commits]

efraim pushed a commit to branch master
in repository guix.

commit 6e26bd5b7f01db15cfea0ee3f687cbf614814542
Author: Efraim Flashner <efraim@flashner.co.il>
AuthorDate: Mon Nov 16 11:14:33 2020 +0200

    gnu: cpulimit: Use make-flags.
    
    * gnu/packages/admin.scm (cpulimit)[arguments]: Introduce make-flags.
    Use them in custom 'build and 'check phases.
---
 gnu/packages/admin.scm | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/gnu/packages/admin.scm b/gnu/packages/admin.scm
index df98bd2..becd15d 100644
--- a/gnu/packages/admin.scm
+++ b/gnu/packages/admin.scm
@@ -2383,17 +2383,18 @@ lookup to YAML Mode.  You could enable the mode with 
@code{(add-hook
      `(#: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