blob: a7c1f3b5f7ae25839353af3444792d231af6fce2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
diff --git a/src/GenUtil.hs b/src/GenUtil.hs
index 4855618..db416ed 100644
--- a/src/GenUtil.hs
+++ b/src/GenUtil.hs
@@ -482,7 +482,7 @@ overlaps :: Ord a => (a,a) -> (a,a) -> Bool
_ `overlaps` _ = True
-- | translate a number of seconds to a string representing the duration expressed.
-showDuration :: Integral a => a -> String
+showDuration :: (Integral a, Show a) => a -> String
showDuration x = st "d" dayI ++ st "h" hourI ++ st "m" minI ++ show secI ++ "s" where
(dayI, hourI) = divMod hourI' 24
(hourI', minI) = divMod minI' 60
|
GitWeb
