Commit d2e24216 authored by Malcolm.Wallace@cs.york.ac.uk's avatar Malcolm.Wallace@cs.york.ac.uk
Browse files

fix nhc98 build: recent change to use picoseconds was not portable

parent 5216adf4
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment