summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
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.patch13
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