summaryrefslogtreecommitdiffhomepage
path: root/src/Xmobar/Plugins/Monitors/Mpris.hs
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2019-06-30 01:13:57 +0100
committerjao <jao@gnu.org>2019-06-30 01:13:57 +0100
commitf69a7ec50716191a31b79be08998d9b2adf6c9fa (patch)
treebd6896c9f442b93ab31a7b232283ca26042854df /src/Xmobar/Plugins/Monitors/Mpris.hs
parent365d0a7c97f3905c16caf70c0bb7ef6054b232f2 (diff)
downloadxmobar-f69a7ec50716191a31b79be08998d9b2adf6c9fa.tar.gz
xmobar-f69a7ec50716191a31b79be08998d9b2adf6c9fa.tar.bz2
hlinting
Diffstat (limited to 'src/Xmobar/Plugins/Monitors/Mpris.hs')
-rw-r--r--src/Xmobar/Plugins/Monitors/Mpris.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Xmobar/Plugins/Monitors/Mpris.hs b/src/Xmobar/Plugins/Monitors/Mpris.hs
index 3556649..480698c 100644
--- a/src/Xmobar/Plugins/Monitors/Mpris.hs
+++ b/src/Xmobar/Plugins/Monitors/Mpris.hs
@@ -85,7 +85,7 @@ dbusClient = unsafePerformIO DC.connectSession
runMPRIS :: (MprisVersion a) => a -> String -> [String] -> Monitor String
runMPRIS version playerName _ = do
metadata <- io $ getMetadata version dbusClient playerName
- if [] == metadata then
+ if null metadata then
getConfigValue naString
else mapM showWithPadding (makeList version metadata) >>= parseTemplate