From 9ec2025cba81c6568f1e5b66554fd94654f97e91 Mon Sep 17 00:00:00 2001 From: Sergei Trofimovich Date: Tue, 17 Jul 2012 09:54:08 +0300 Subject: xmobar.cabal: port to libmpd-0.8. Now all values are returned as 'Value' wrapped entries. Signed-off-by: Sergei Trofimovich --- src/Plugins/Monitors/MPD.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Plugins/Monitors/MPD.hs') diff --git a/src/Plugins/Monitors/MPD.hs b/src/Plugins/Monitors/MPD.hs index cc40a56..e56260d 100644 --- a/src/Plugins/Monitors/MPD.hs +++ b/src/Plugins/Monitors/MPD.hs @@ -91,10 +91,10 @@ parseSong (Right Nothing) = return $ repeat "" parseSong (Right (Just s)) = let join [] = "" join (x:xs) = foldl (\a o -> a ++ ", " ++ o) x xs - str sel = maybe "" join (M.sgGetTag sel s) + str sel = maybe "" (join . map M.toString) (M.sgGetTag sel s) sels = [ M.Name, M.Artist, M.Composer, M.Performer , M.Album, M.Title, M.Track, M.Genre ] - fields = M.sgFilePath s : map str sels + fields = M.toString (M.sgFilePath s) : map str sels in mapM showWithPadding fields showTime :: Integer -> String -- cgit v1.2.3