Fix C/Haskell type mismatches

[ghc-base.git] / System / Random.hs

diff --git a/System/Random.hs b/System/Random.hs
index d6517b1..4e9ba1e 100644 (file)
--- a/System/Random.hs
+++ b/System/Random.hs
@@ -84,7 +84,7 @@ import Numeric                ( readDec )
 -- replacement here.
 #ifdef __NHC__
 data ClockTime = TOD Integer ()
-foreign import ccall "time.h time" readtime :: Ptr () -> IO Int
+foreign import ccall "time.h time" readtime :: Ptr CTime -> IO CTime
 getClockTime :: IO ClockTime
 getClockTime = do t <- readtime nullPtr;  return (TOD (toInteger t) ())
 #endif