summaryrefslogtreecommitdiffhomepage
path: root/src/Plugins/Monitors/MPD.hs
diff options
context:
space:
mode:
authorBen Boeckel <mathstuf@gmail.com>2012-06-09 00:46:04 -0400
committerBen Boeckel <mathstuf@gmail.com>2012-06-09 00:46:04 -0400
commit4d0d5880b8e151084e6dfb27cc6d51d68609b048 (patch)
treede2f4061d7c8a7d01d986c4d86a6e6d93196d97b /src/Plugins/Monitors/MPD.hs
parente513f7149000dfec4549d0d9f0a3add647e06c95 (diff)
downloadxmobar-4d0d5880b8e151084e6dfb27cc6d51d68609b048.tar.gz
xmobar-4d0d5880b8e151084e6dfb27cc6d51d68609b048.tar.bz2
Add a blocking call for MPD based on events
Diffstat (limited to 'src/Plugins/Monitors/MPD.hs')
-rw-r--r--src/Plugins/Monitors/MPD.hs11
1 files changed, 10 insertions, 1 deletions
diff --git a/src/Plugins/Monitors/MPD.hs b/src/Plugins/Monitors/MPD.hs
index cc40a56..cb3acdf 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,15 @@ runMPD args = do
s <- parseMPD status song opts
parseTemplate s
+mpdWait :: IO ()
+mpdWait = M.withMPD idle >> return ()
+ where
+#if defined LIBMPD_07
+ idle = M.idle
+#else
+ idle = M.idle [M.PlayerS, M.MixerS]
+#endif
+
mopts :: [String] -> IO MOpts
mopts argv =
case getOpt Permute options argv of