summaryrefslogtreecommitdiffhomepage
path: root/src/Plugins/Monitors/MPD.hs
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2012-07-21 18:27:35 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2012-07-21 18:27:35 +0200
commit7c38acde5da92181b3f1da44fdd52bb732d145e9 (patch)
tree9878efa0270504816a9cfed18d6cc2ac443b7a6b /src/Plugins/Monitors/MPD.hs
parentf24d03d994c59dd9d91fd280272254eeb6a03b19 (diff)
parent0f8e3e7cf4afb28a9ed8c1922f8090c67d4714f1 (diff)
downloadxmobar-7c38acde5da92181b3f1da44fdd52bb732d145e9.tar.gz
xmobar-7c38acde5da92181b3f1da44fdd52bb732d145e9.tar.bz2
Merge remote-tracking branch 'math/dev/mpd-idle' into mpd
Conflicts: xmobar.cabal
Diffstat (limited to 'src/Plugins/Monitors/MPD.hs')
-rw-r--r--src/Plugins/Monitors/MPD.hs6
1 files changed, 5 insertions, 1 deletions
diff --git a/src/Plugins/Monitors/MPD.hs b/src/Plugins/Monitors/MPD.hs
index e56260d..450ad8f 100644
--- a/src/Plugins/Monitors/MPD.hs
+++ b/src/Plugins/Monitors/MPD.hs
@@ -12,7 +12,7 @@
--
-----------------------------------------------------------------------------
-module Plugins.Monitors.MPD ( mpdConfig, runMPD ) where
+module Plugins.Monitors.MPD ( mpdConfig, runMPD, mpdWait ) where
import Plugins.Monitors.Common
import System.Console.GetOpt
@@ -55,6 +55,10 @@ runMPD args = do
s <- parseMPD status song opts
parseTemplate s
+mpdWait :: IO ()
+mpdWait = M.withMPD idle >> return ()
+ where idle = M.idle [M.PlayerS, M.MixerS]
+
mopts :: [String] -> IO MOpts
mopts argv =
case getOpt Permute options argv of