[project @ 2004-03-03 19:25:41 by malcolm]

[ghc-base.git] / System / CPUTime.hsc

diff --git a/System/CPUTime.hsc b/System/CPUTime.hsc
index 0ce703e..132b041 100644 (file)
--- a/System/CPUTime.hsc
+++ b/System/CPUTime.hsc
@@ -26,6 +26,10 @@ import Data.Ratio
 import Hugs.Time ( getCPUTime, clockTicks )
 #endif
 
+#ifdef __NHC__
+import CPUTime ( getCPUTime, cpuTimePrecision )
+#endif
+
 #ifdef __GLASGOW_HASKELL__
 import Foreign
 import Foreign.C
@@ -125,8 +129,10 @@ foreign import ccall unsafe "GetProcessTimes" getProcessTimes :: Ptr HANDLE -> P
 -- 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