diff options
| author | Jochen Keil <jochen.keil@gmail.com> | 2012-08-10 11:38:52 +0200 |
|---|---|---|
| committer | Jochen Keil <jochen.keil@gmail.com> | 2012-08-10 11:38:52 +0200 |
| commit | b318c3c18d3c2d4866c3f325f8ec6f00a42876fb (patch) | |
| tree | b1ab4ad8bc69fd4955b4933c5043c59072ab591e /src/IPC/DBus.hs | |
| parent | 1f603c25eea15d302a4aa1ebb879bbd8198a3b82 (diff) | |
| download | xmobar-b318c3c18d3c2d4866c3f325f8ec6f00a42876fb.tar.gz xmobar-b318c3c18d3c2d4866c3f325f8ec6f00a42876fb.tar.bz2 | |
Move the IsVariant SignalType instance to Signal module
This belongs here, otherwise ghc will complain about orphaned instances
Diffstat (limited to 'src/IPC/DBus.hs')
| -rw-r--r-- | src/IPC/DBus.hs | 9 |
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" |