summaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
-rw-r--r--news.md4
-rw-r--r--src/Plugins/Monitors/MPD.hs10
2 files changed, 7 insertions, 7 deletions
diff --git a/news.md b/news.md
index 414b529..e29bebb 100644
--- a/news.md
+++ b/news.md
@@ -10,11 +10,13 @@ _Bug fixes_
- Fix for `Top` monitor's readings for processes whose name contains
blanks.
- Fixes for geometry computation on multihead (Dmitry Malikov).
- - Fixes for missing XDG configuration (Thiago Negri and James McCoy).
+ - Fixes for missing XDG configuration (Thiago Negri and James McCoy,
+ see [issue #133]).
- Compatibility with latest `directory` (1.2.0.2).
[issue #76]: https://github.com/jaor/xmobar/issues/76
[issue #111]: https://github.com/jaor/xmobar/issues/111
+[issue #133]: https://github.com/jaor/xmobar/issues/133
## Version 0.19 (October 27, 2013)
diff --git a/src/Plugins/Monitors/MPD.hs b/src/Plugins/Monitors/MPD.hs
index b57924c..0e5980c 100644
--- a/src/Plugins/Monitors/MPD.hs
+++ b/src/Plugins/Monitors/MPD.hs
@@ -51,19 +51,17 @@ options =
runMPD :: [String] -> Monitor String
runMPD args = do
opts <- io $ mopts args
- let mpd = M.withMPD
- status <- io $ mpd M.status
- song <- io $ mpd M.currentSong
+ status <- io $ M.withMPD M.status
+ song <- io $ M.withMPD M.currentSong
s <- parseMPD status song opts
parseTemplate s
mpdWait :: IO ()
mpdWait = do
- status <- M.withMPD M.status
+ status <- M.withMPD $ M.idle [M.PlayerS, M.MixerS]
case status of
Left _ -> threadDelay 10000000
- _ -> M.withMPD idle >> return ()
- where idle = M.idle [M.PlayerS, M.MixerS]
+ _ -> return ()
mopts :: [String] -> IO MOpts
mopts argv =