diff options
Diffstat (limited to 'dev-haskell/drift/files/drift-2.2.3-ghc-7.4.patch')
| -rw-r--r-- | dev-haskell/drift/files/drift-2.2.3-ghc-7.4.patch | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/dev-haskell/drift/files/drift-2.2.3-ghc-7.4.patch b/dev-haskell/drift/files/drift-2.2.3-ghc-7.4.patch new file mode 100644 index 000000000000..a7c1f3b5f7ae --- /dev/null +++ b/dev-haskell/drift/files/drift-2.2.3-ghc-7.4.patch @@ -0,0 +1,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 |