From e9ce98d934861a96f76f673b88fda55f4ceeb900 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Tue, 26 Jul 2016 03:46:29 +0200
Subject: MPris: honour field padding and width options

---
 src/Plugins/Monitors/Mpris.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/Plugins/Monitors/Mpris.hs b/src/Plugins/Monitors/Mpris.hs
index 05718cf..200e9f7 100644
--- a/src/Plugins/Monitors/Mpris.hs
+++ b/src/Plugins/Monitors/Mpris.hs
@@ -84,7 +84,7 @@ dbusClient = unsafePerformIO DC.connectSession
 runMPRIS :: (MprisVersion a) => a -> String -> [String] -> Monitor String
 runMPRIS version playerName _ = do
     metadata <- io $ getMetadata version dbusClient playerName
-    parseTemplate $ makeList version metadata
+    mapM showWithPadding (makeList version metadata) >>= parseTemplate
 
 runMPRIS1 :: String -> [String] -> Monitor String
 runMPRIS1 = runMPRIS MprisVersion1
-- 
cgit v1.2.3