diff options
| author | jao <jao@gnu.org> | 2011-06-02 03:48:44 -0700 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2011-06-02 03:48:44 -0700 |
| commit | ebdbbd4829b155a0ff739596cb12f1d1356c9591 (patch) | |
| tree | 68b0e41fb7071dbaedcb92a5ab71076e21411b0b /src/Plugins/Monitors | |
| parent | a6043e7831d941a03d098552bda9b824247c4715 (diff) | |
| download | xmobar-ebdbbd4829b155a0ff739596cb12f1d1356c9591.tar.gz xmobar-ebdbbd4829b155a0ff739596cb12f1d1356c9591.tar.bz2 | |
Compatibility with libmpd 0.6 (fixes #50)
Diffstat (limited to 'src/Plugins/Monitors')
| -rw-r--r-- | src/Plugins/Monitors/MPD.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Plugins/Monitors/MPD.hs b/src/Plugins/Monitors/MPD.hs index 06d0fa7..60c3e48 100644 --- a/src/Plugins/Monitors/MPD.hs +++ b/src/Plugins/Monitors/MPD.hs @@ -91,7 +91,7 @@ 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.sgGet sel s) + str sel = maybe "" join (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 |