From 8b72489b273edcd69be69b8693bc3eccfeb4404c Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Wed, 5 Feb 2014 02:20:44 +0100
Subject: Couple of nits

---
 news.md                     |  4 +++-
 src/Plugins/Monitors/MPD.hs | 10 ++++------
 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 =
-- 
cgit v1.2.3