[project @ 1998-12-02 13:17:09 by simonm]

[ghc-hetmet.git] / ghc / lib / std / Random.lhs

diff --git a/ghc/lib/std/Random.lhs b/ghc/lib/std/Random.lhs
index faae80a..511ffe4 100644 (file)
--- 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 =