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

---
 src/Plugins/Monitors/MPD.hs | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

(limited to 'src')

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