From 22038e70e9e89dc199bf9986e35217847064ff73 Mon Sep 17 00:00:00 2001
From: malcolm <unknown>
Date: Wed, 3 Mar 2004 19:25:41 +0000
Subject: [PATCH] [project @ 2004-03-03 19:25:41 by malcolm] #ifdefs for
 nhc98.

---
 System/CPUTime.hsc |    6 ++++++
 1 file changed, 6 insertions(+)

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
-- 
1.7.10.4