[project @ 2000-04-14 15:28:24 by rrt]

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

diff --git a/ghc/lib/std/CPUTime.lhs b/ghc/lib/std/CPUTime.lhs
index d1d7179..0cd9333 100644 (file)
--- a/ghc/lib/std/CPUTime.lhs
+++ b/ghc/lib/std/CPUTime.lhs
@@ -20,7 +20,8 @@ module CPUTime
 import Prelude         -- To generate the dependency
 import PrelGHC         ( indexIntArray# )
 import PrelBase                ( Int(..) )
-import PrelByteArr     ( ByteArray(..), newIntArray, unsafeFreezeByteArray )
+import PrelByteArr     ( ByteArray(..), newIntArray )
+import PrelArrExtra     ( unsafeFreezeByteArray )
 import PrelNum         ( fromInt )
 import PrelIOBase      ( IOError(..), IOErrorType( UnsupportedOperation ), 
                          unsafePerformIO, stToIO )
@@ -65,11 +66,10 @@ foreign import "libHS_cbits" "clockTicks" clockTicks :: IO Int
 #else
 
 \begin{code}
-import Prelude
-import privileged Prelude ( nh_getCPUtime
-                         , nh_getCPUprec
-                         , unsafePerformIO
-                         )
+import PrelPrim ( nh_getCPUtime
+               , nh_getCPUprec
+               , unsafePerformIO
+               )
 
 getCPUTime :: IO Integer
 getCPUTime