summaryrefslogtreecommitdiffhomepage
path: root/src/Plugins/Monitors/MPD.hs
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2012-02-05 03:43:45 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2012-02-05 03:43:45 +0100
commit43256a360a25a611a748c637da16aa49cceb181a (patch)
tree8e85ac8367124eabe9e3f955d8777e2222b04c15 /src/Plugins/Monitors/MPD.hs
parent30d1e63298d35811d91df14f5cbc6b38e6e8003d (diff)
downloadxmobar-43256a360a25a611a748c637da16aa49cceb181a.tar.gz
xmobar-43256a360a25a611a748c637da16aa49cceb181a.tar.bz2
Little compilation fix for MPD.hs in ghc 7.4
Diffstat (limited to 'src/Plugins/Monitors/MPD.hs')
-rw-r--r--src/Plugins/Monitors/MPD.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Plugins/Monitors/MPD.hs b/src/Plugins/Monitors/MPD.hs
index 60c3e48..cc40a56 100644
--- a/src/Plugins/Monitors/MPD.hs
+++ b/src/Plugins/Monitors/MPD.hs
@@ -102,5 +102,5 @@ showTime t = int2str minutes ++ ":" ++ int2str seconds
where minutes = t `div` 60
seconds = t `mod` 60
-int2str :: (Num a, Ord a) => a -> String
+int2str :: (Show a, Num a, Ord a) => a -> String
int2str x = if x < 10 then '0':sx else sx where sx = show x