For nhc98, use nullPtr rather than 0 as the argument to time().
#ifdef __NHC__
import CPUTime ( getCPUTime )
+import Foreign.Ptr ( Ptr, nullPtr )
#else
import System.CPUTime ( getCPUTime )
import System.Time ( getClockTime, ClockTime(..) )
-- replacement here.
#ifdef __NHC__
data ClockTime = TOD Integer ()
-foreign import ccall "time.h time" readtime :: Int -> IO Int
+foreign import ccall "time.h time" readtime :: Ptr () -> IO Int
getClockTime :: IO ClockTime
-getClockTime = do t <- readtime 0; return (TOD (toInteger t) ())
+getClockTime = do t <- readtime nullPtr; return (TOD (toInteger t) ())
#endif
{- $intro