fix nhc98 build: recent change to use picoseconds was not portable 2008-05-28
authorMalcolm.Wallace@cs.york.ac.uk <unknown>
Wed, 31 Oct 2007 14:01:23 +0000 (14:01 +0000)
committerMalcolm.Wallace@cs.york.ac.uk <unknown>
Wed, 31 Oct 2007 14:01:23 +0000 (14:01 +0000)
System/Random.hs

index fed116b..c702eba 100644 (file)
@@ -86,10 +86,10 @@ import Numeric              ( readDec )
 -- the extended one expected in this module, so we lash-up a quick
 -- replacement here.
 #ifdef __NHC__
-data ClockTime = TOD Integer ()
+data ClockTime = TOD Integer Integer
 foreign import ccall "time.h time" readtime :: Ptr CTime -> IO CTime
 getClockTime :: IO ClockTime
-getClockTime = do CTime t <- readtime nullPtr;  return (TOD (toInteger t) ())
+getClockTime = do CTime t <- readtime nullPtr;  return (TOD (toInteger t) 0)
 #endif
 
 -- | The class 'RandomGen' provides a common interface to random number