[project @ 2000-03-09 06:14:38 by andy]

[ghc-hetmet.git] / ghc / lib / std / CPUTime.lhs

diff --git a/ghc/lib/std/CPUTime.lhs b/ghc/lib/std/CPUTime.lhs
index 9d7e6a7..d1d7179 100644 (file)
--- a/ghc/lib/std/CPUTime.lhs
+++ b/ghc/lib/std/CPUTime.lhs
@@ -65,6 +65,12 @@ foreign import "libHS_cbits" "clockTicks" clockTicks :: IO Int
 #else
 
 \begin{code}
+import Prelude
+import privileged Prelude ( nh_getCPUtime
+                         , nh_getCPUprec
+                         , unsafePerformIO
+                         )
+
 getCPUTime :: IO Integer
 getCPUTime 
    = do seconds <- nh_getCPUtime
@@ -72,7 +78,7 @@ getCPUTime
 
 cpuTimePrecision :: Integer
 cpuTimePrecision
-   = primRunST (
+   = unsafePerformIO (
         do resolution <- nh_getCPUprec
            return (round (resolution * 1.0e+12))
      )