diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2014-02-05 02:20:44 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2014-02-05 02:20:44 +0100 |
| commit | 8b72489b273edcd69be69b8693bc3eccfeb4404c (patch) | |
| tree | 7b8c289eff794df3fd9114185d36ec808bf9addb | |
| parent | 14480f667cf129808d7732e36cdeee0a27c95624 (diff) | |
| download | xmobar-8b72489b273edcd69be69b8693bc3eccfeb4404c.tar.gz xmobar-8b72489b273edcd69be69b8693bc3eccfeb4404c.tar.bz2 | |
Couple of nits
| -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 = |