diff options
Diffstat (limited to 'src/Plugins/Monitors/MPD.hs')
| -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 = |