summaryrefslogtreecommitdiffhomepage
path: root/src/IPC
diff options
context:
space:
mode:
Diffstat (limited to 'src/IPC')
-rw-r--r--src/IPC/DBus.hs9
1 files changed, 1 insertions, 8 deletions
diff --git a/src/IPC/DBus.hs b/src/IPC/DBus.hs
index 4357c48..b0597a4 100644
--- a/src/IPC/DBus.hs
+++ b/src/IPC/DBus.hs
@@ -16,19 +16,12 @@ module IPC.DBus ( runIPC ) where
import DBus
import DBus.Client
-import Control.Monad ((>=>), join, when)
+import Control.Monad (join, when)
import Control.Concurrent
import Signal
import Plugins.Utils (safeHead)
-instance IsVariant SignalType where
- toVariant = toVariant . show
- fromVariant = fromVariant >=> parseSignalType
-
-parseSignalType :: String -> Maybe SignalType
-parseSignalType = fmap fst . safeHead . reads
-
busName :: BusName
busName = busName_ "org.Xmobar.Control"