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 /src/Plugins/Monitors | |
| parent | 14480f667cf129808d7732e36cdeee0a27c95624 (diff) | |
| download | xmobar-8b72489b273edcd69be69b8693bc3eccfeb4404c.tar.gz xmobar-8b72489b273edcd69be69b8693bc3eccfeb4404c.tar.bz2 | |
Couple of nits
Diffstat (limited to 'src/Plugins/Monitors')
| -rw-r--r-- | src/Plugins/Monitors/MPD.hs | 10 |
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 = |