>From f67a4859689acc08d8ad18ef5da7d27ed5d6ab56 Mon Sep 17 00:00:00 2001
From: Florian Pelz <address@hidden>
Date: Sat, 6 Jul 2019 11:33:37 +0200
Subject: [PATCH 2/2] [only for testing] gnu: modem-manager: Activate debug
 mode.

* gnu/packages/freedesktop.scm (modem-manager)[arguments]: Add --debug
command-line argument to dbus service.
---
 gnu/packages/freedesktop.scm | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/freedesktop.scm b/gnu/packages/freedesktop.scm
index 4b37ffdf3c..70d64b1d30 100644
--- a/gnu/packages/freedesktop.scm
+++ b/gnu/packages/freedesktop.scm
@@ -998,7 +998,19 @@ which speak the Qualcomm MSM Interface (QMI) protocol.")
          ;; FIXME: Without this flag the build fails with "error: assignment
          ;; from incompatible pointer type" whenever the return value of
          ;; "g_object_ref" is assigned to "ctx->self".
-         "--disable-more-warnings")))
+         "--disable-more-warnings")
+       #:phases
+       (modify-phases %standard-phases
+         (add-after 'install 'set-debug
+           (lambda* (#:key outputs #:allow-other-keys)
+             (substitute*
+                 (string-append
+                  (assoc-ref outputs "out")
+                  "/share/dbus-1/system-services/\
+org.freedesktop.ModemManager1.service")
+               (("sbin/ModemManager")
+                "sbin/ModemManager --debug"))
+             #t)))))
     (native-inputs
      `(("glib:bin" ,glib "bin") ; for glib-mkenums
        ("gobject-introspection" ,gobject-introspection)
-- 
2.22.0