summaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2020-04-21 04:24:12 +0100
committerjao <jao@gnu.org>2020-04-21 04:24:12 +0100
commit0cfa5f8daa6ff6b7f2322cc035ac82f3b5d7f279 (patch)
treeb75a6e149f405e5d1b92ea54a212f97fb0656674
parent2dec7b2ff2d064918b57c73879eb83a9ed93e4be (diff)
downloadxmobar-0cfa5f8daa6ff6b7f2322cc035ac82f3b5d7f279.tar.gz
xmobar-0cfa5f8daa6ff6b7f2322cc035ac82f3b5d7f279.tar.bz2
Whitespace
-rw-r--r--src/Xmobar/Plugins/Monitors/MPD.hs6
1 files changed, 4 insertions, 2 deletions
diff --git a/src/Xmobar/Plugins/Monitors/MPD.hs b/src/Xmobar/Plugins/Monitors/MPD.hs
index 3bbae5d..c8c2dc9 100644
--- a/src/Xmobar/Plugins/Monitors/MPD.hs
+++ b/src/Xmobar/Plugins/Monitors/MPD.hs
@@ -101,13 +101,15 @@ parseMPD (Right st) song opts = do
bar <- showPercentBar (100 * b) b
vbar <- showVerticalBar (100 * b) b
ipat <- showIconPattern (mLapsedIconPattern opts) b
- return $ [bar, vbar, ipat, ss, si, vol, len, lap, remain, plen, ppos, flags] ++ songData
+ return $ [bar, vbar, ipat, ss, si, vol, len, lap, remain, plen, ppos, flags]
+ ++ songData
where s = M.stState st
ss = show s
si = stateGlyph s opts
vol = int2str $ fromMaybe 0 (M.stVolume st)
(p, t) = fromMaybe (0, 0) (M.stTime st)
- [lap, len, remain] = map showTime [floor p, floor t, max 0 (floor t - floor p)]
+ [lap, len, remain] = map showTime
+ [floor p, floor t, max 0 (floor t - floor p)]
b = if t > 0 then realToFrac $ p / t else 0
plen = int2str $ M.stPlaylistLength st
ppos = maybe "" (int2str . (+1)) $ M.stSongPos st