guix_mirror_bot pushed a commit to branch master
in repository guix.

commit 6ad98b0c0e132668d9a088a2ca2615c011119ba7
Author: Anderson Torres <[email protected]>
AuthorDate: Mon Jul 6 12:33:33 2026 -0300

    gnu: cmst: Use gexps.
    
    * gnu/packages/connman.scm (cmst)[arguments]<#:phases>: Use gexps.
    
    Change-Id: I3f1f71c9c3f1b18a04acbb8c1dffdba16f22738f
    Signed-off-by: Andreas Enge <[email protected]>
---
 gnu/packages/connman.scm | 44 +++++++++++++++++++++-----------------------
 1 file changed, 21 insertions(+), 23 deletions(-)

diff --git a/gnu/packages/connman.scm b/gnu/packages/connman.scm
index 79471fac81..159e17fca6 100644
--- a/gnu/packages/connman.scm
+++ b/gnu/packages/connman.scm
@@ -180,29 +180,27 @@ sharing) to clients via USB, ethernet, WiFi, cellular and 
Bluetooth.")
      (list qttools-5))
     (build-system gnu-build-system)
     (arguments
-     '(#:phases
-       (modify-phases %standard-phases
-         (replace 'configure
-           (lambda* (#:key outputs #:allow-other-keys)
-             (invoke "qmake"
-                     (string-append "PREFIX="
-                                    (assoc-ref outputs "out")))))
-         (add-before 'build 'fix-Makefiles
-           (lambda* (#:key inputs outputs #:allow-other-keys)
-             (let ((out (assoc-ref outputs "out")))
-               (substitute* (find-files "." "Makefile")
-                 (("INSTALL_ROOT)")
-                  (string-append "INSTALL_ROOT)" out))
-                 (("/usr") ""))
-               (substitute* '("apps/cmstapp/cmstapp.pro"
-                              "apps/cmstapp/code/control_box/controlbox.cpp"
-                              "apps/rootapp/rootapp.pro"
-                              "apps/rootapp/system/org.cmst.roothelper.service"
-                              "cmst.pri"
-                              "cmst.pro")
-                 (("/usr") out)
-                 (("/etc") (string-append out "/etc")))
-               #t))))))
+     (list
+      #:phases
+      #~(modify-phases %standard-phases
+          (replace 'configure
+            (lambda _
+              (invoke "qmake"
+                      (string-append "PREFIX=" #$output))))
+          (add-before 'build 'fix-references
+            (lambda _
+              (substitute* (find-files "." "Makefile")
+                (("INSTALL_ROOT)")
+                 (string-append "INSTALL_ROOT)" #$output))
+                (("/usr") ""))
+              (substitute* (list "apps/cmstapp/cmstapp.pro"
+                                 "apps/cmstapp/code/control_box/controlbox.cpp"
+                                 "apps/rootapp/rootapp.pro"
+                                 
"apps/rootapp/system/org.cmst.roothelper.service"
+                                 "cmst.pri"
+                                 "cmst.pro")
+                (("/usr") #$output)
+                (("/etc") (string-append #$output "/etc"))))))))
     (home-page "https://github.com/andrew-bibb/cmst";)
     (synopsis "Qt frontend for Connman")
     (description

Reply via email to