diff options
| -rw-r--r-- | news.md | 4 | ||||
| -rw-r--r-- | src/Plugins/Monitors/MPD.hs | 10 |
2 files changed, 7 insertions, 7 deletions
@@ -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 = |