From: malcolm <unknown>
Date: Wed, 3 Mar 2004 19:25:41 +0000 (+0000)
Subject: [project @ 2004-03-03 19:25:41 by malcolm]
X-Git-Tag: nhc98-1-18-release~354
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=22038e70e9e89dc199bf9986e35217847064ff73;p=haskell-directory.git

[project @ 2004-03-03 19:25:41 by malcolm]
#ifdefs for nhc98.
---

diff --git a/System/CPUTime.hsc b/System/CPUTime.hsc
index 0ce703e..132b041 100644
--- 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