import Hugs.Time ( getCPUTime, clockTicks )
#endif
+#ifdef __NHC__
+import CPUTime ( getCPUTime, cpuTimePrecision )
+#endif
+
#ifdef __GLASGOW_HASKELL__
import Foreign
import Foreign.C
-- in CPU time that the implementation can record, and is given as an
-- integral number of picoseconds.
+#ifndef __NHC__
cpuTimePrecision :: Integer
cpuTimePrecision = round ((1000000000000::Integer) % fromIntegral (clockTicks))
+#endif
#ifdef __GLASGOW_HASKELL__
clockTicks :: Int