From d3d3cf639e736244c12191c8c35ceb465c0b9103 Mon Sep 17 00:00:00 2001
From: Sergei Trofimovich <slyfox@gentoo.org>
Date: Mon, 4 Jun 2018 10:43:22 +0000
Subject: port to dbus-1

Signed-off-by: Sergei Trofimovich <slyfox@gentoo.org>
---
 src/IPC/DBus.hs | 17 +++++++++++------
 xmobar.cabal    |  4 ++--
 2 files changed, 13 insertions(+), 8 deletions(-)

diff --git a/src/IPC/DBus.hs b/src/IPC/DBus.hs
index 3f2d6f2..b9bffd5 100644
--- a/src/IPC/DBus.hs
+++ b/src/IPC/DBus.hs
@@ -15,11 +15,13 @@
 module IPC.DBus (runIPC) where
 
 import DBus
-import DBus.Client
+import DBus.Client hiding (interfaceName)
+import qualified DBus.Client as DC
 import Control.Monad (when)
 import Control.Concurrent.STM
 import Control.Exception (handle)
 import System.IO (stderr, hPutStrLn)
+import Control.Monad.IO.Class (liftIO)
 
 import Signal
 
@@ -40,10 +42,13 @@ runIPC mvst = handle printException exportConnection
     exportConnection = do
         client <- connectSession
         requestName client busName [ nameDoNotQueue ]
-        export client objectPath [ sendSignalMethod mvst ]
+        export client objectPath defaultInterface
+          { DC.interfaceName = interfaceName
+          , DC.interfaceMethods = [ sendSignalMethod mvst ]
+          }
 
 sendSignalMethod :: TMVar SignalType -> Method
-sendSignalMethod mvst = method interfaceName sendSignalName
+sendSignalMethod mvst = makeMethod sendSignalName
     (signature_ [variantType $ toVariant (undefined :: SignalType)])
     (signature_ [])
     sendSignalMethodCall
@@ -51,11 +56,11 @@ sendSignalMethod mvst = method interfaceName sendSignalName
     sendSignalName :: MemberName
     sendSignalName = memberName_ "SendSignal"
 
-    sendSignalMethodCall :: MethodCall -> IO Reply
-    sendSignalMethodCall mc = do
+    sendSignalMethodCall :: MethodCall -> DBusR Reply
+    sendSignalMethodCall mc = liftIO $ do
         when ( methodCallMember mc == sendSignalName )
              $ mapM_ (sendSignal . fromVariant) (methodCallBody mc)
-        return ( replyReturn [] )
+        return ( ReplyReturn [] )
 
     sendSignal :: Maybe SignalType -> IO ()
     sendSignal = maybe (return ()) (atomically . putTMVar mvst)
diff --git a/xmobar.cabal b/xmobar.cabal
index 86d5bc5..5392b72 100644
--- a/xmobar.cabal
+++ b/xmobar.cabal
@@ -230,12 +230,12 @@ executable xmobar
        cpp-options: -DDATEZONE
 
     if flag(with_mpris) || flag(all_extensions)
-       build-depends: dbus >= 0.10 && < 1.0
+       build-depends: dbus >= 1
        other-modules: Plugins.Monitors.Mpris
        cpp-options: -DMPRIS
 
     if flag(with_dbus) || flag(all_extensions)
-       build-depends: dbus >= 0.10
+       build-depends: dbus >= 1
        other-modules: IPC.DBus
        cpp-options: -DDBUS
 
-- 
cgit v1.2.3