summaryrefslogtreecommitdiffhomepage
path: root/src/Plugins
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2014-02-05 02:20:44 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2014-02-05 02:20:44 +0100
commit8b72489b273edcd69be69b8693bc3eccfeb4404c (patch)
tree7b8c289eff794df3fd9114185d36ec808bf9addb /src/Plugins
parent14480f667cf129808d7732e36cdeee0a27c95624 (diff)
downloadxmobar-8b72489b273edcd69be69b8693bc3eccfeb4404c.tar.gz
xmobar-8b72489b273edcd69be69b8693bc3eccfeb4404c.tar.bz2
Couple of nits
Diffstat (limited to 'src/Plugins')
-rw-r--r--src/Plugins/Monitors/MPD.hs10
1 files changed, 4 insertions, 6 deletions
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 =