X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=ghc%2Flib%2Fstd%2FRandom.lhs;h=511ffe47331a2a8bcc957c6646554fb6015c3645;hp=faae80ae2e9e6905fa1bdaadbe8eef0d670f6951;hb=438596897ebbe25a07e1c82085cfbc5bdb00f09e;hpb=967cc47f37cb93a5e2b6df7822c9a646f0428247

diff --git a/ghc/lib/std/Random.lhs b/ghc/lib/std/Random.lhs
index faae80a..511ffe4 100644
--- a/ghc/lib/std/Random.lhs
+++ b/ghc/lib/std/Random.lhs
@@ -22,7 +22,7 @@ randomIO :: (Integer, Integer) -> IO [Integer]
 randomIO lh = do
     ct          <- getCPUTime
     (TOD sec _) <- getClockTime
-    return (random lh (sec * 12345 + ct))
+    return (random lh (toInteger sec * 12345 + ct))
 
 random :: (Integer, Integer) -> Integer -> [Integer]
 random (l, h) s =