From 2af5fab3c8df61ec189bcc880524fe73a6e1e361 Mon Sep 17 00:00:00 2001
From: Jochen Keil <jochen.keil@gmail.com>
Date: Fri, 10 Aug 2012 11:40:01 +0200
Subject: Run the DBus event handler in startCommand

Actually run this stuff
---
 src/Xmobar.hs | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'src')

diff --git a/src/Xmobar.hs b/src/Xmobar.hs
index adbe956..fb0860d 100644
--- a/src/Xmobar.hs
+++ b/src/Xmobar.hs
@@ -50,6 +50,10 @@ import Signal
 import Window
 import XUtil
 
+#ifdef DBUS
+import IPC.DBus
+#endif
+
 -- $main
 --
 -- The Xmobar data type and basic loops and functions.
@@ -191,6 +195,9 @@ startCommand sig (com,s,ss)
                            let cb str = atomically $ writeTVar var (s ++ str ++ ss)
                            h <- forkIO $ start com cb
                            _ <- forkIO $ trigger com ( maybe (return ()) (putMVar sig) )
+#ifdef DBUS
+                           runIPC sig
+#endif
                            return (Just h,var)
     where is = s ++ "Updating..." ++ ss
 
-- 
cgit v1.2.3