diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2012-02-05 03:43:45 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2012-02-05 03:43:45 +0100 |
| commit | 43256a360a25a611a748c637da16aa49cceb181a (patch) | |
| tree | 8e85ac8367124eabe9e3f955d8777e2222b04c15 /src/Plugins/Monitors/MPD.hs | |
| parent | 30d1e63298d35811d91df14f5cbc6b38e6e8003d (diff) | |
| download | xmobar-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.hs | 2 |
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 |