23/332: gnu: modemmanager-qt: Use G-expressions.

[guix-commits]

iyzsong pushed a commit to branch kde-updates
in repository guix.

commit 0ac80ee36f85eb541076e4f4fde5a62c0a5e3df7
Author: Zheng Junjie <873216071@qq.com>
AuthorDate: Wed Jul 12 12:07:30 2023 +0800

    gnu: modemmanager-qt: Use G-expressions.
    
    * gnu/packages/kde-frameworks.scm (modemmanager-qt)[arguments]:
    Rewrite as G-expressions.
    
    Signed-off-by: 宋文武 <iyzsong@member.fsf.org>
---
 gnu/packages/kde-frameworks.scm | 13 ++++++-------
 1 file changed, 6 insertions(+), 7 deletions(-)

diff --git a/gnu/packages/kde-frameworks.scm b/gnu/packages/kde-frameworks.scm
index d0c10e78c2..1bd3bb39f7 100644
--- a/gnu/packages/kde-frameworks.scm
+++ b/gnu/packages/kde-frameworks.scm
@@ -1245,13 +1245,12 @@ lower level classes for interaction with the X 
Windowing System.")
     (inputs
      (list qtbase-5))
     (arguments
-     `(#:phases
-       (modify-phases %standard-phases
-         (replace 'check
-           (lambda* (#:key tests? #:allow-other-keys)
-             (when tests?
-               (setenv "DBUS_FATAL_WARNINGS" "0")
-               (invoke "dbus-launch" "ctest")))))))
+     (list #:phases #~(modify-phases %standard-phases
+                        (replace 'check
+                          (lambda* (#:key tests? #:allow-other-keys)
+                            (when tests?
+                              (setenv "DBUS_FATAL_WARNINGS" "0")
+                              (invoke "dbus-launch" "ctest")))))))
     (home-page "https://community.kde.org/Frameworks";)
     (synopsis "Qt wrapper for ModemManager DBus API")
     (description "ModemManagerQt provides access to all ModemManager features