[project @ 2001-04-25 10:00:29 by simonmar]

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

diff --git a/ghc/lib/std/CPUTime.lhs b/ghc/lib/std/CPUTime.lhs
index c5c7bc7..9478bdc 100644 (file)
--- a/ghc/lib/std/CPUTime.lhs
+++ b/ghc/lib/std/CPUTime.lhs
@@ -1,5 +1,5 @@
 % -----------------------------------------------------------------------------
-% $Id: CPUTime.lhs,v 1.27 2001/01/11 17:25:57 simonmar Exp $
+% $Id: CPUTime.lhs,v 1.29 2001/02/22 16:48:24 qrczak Exp $
 %
 % (c) The University of Glasgow, 1995-2000
 %
@@ -24,7 +24,6 @@ import PrelGHC                ( indexIntArray# )
 import PrelBase                ( Int(..) )
 import PrelByteArr     ( ByteArray(..), newIntArray )
 import PrelArrExtra     ( unsafeFreezeByteArray )
-import PrelNum         ( fromInt )
 import PrelIOBase      ( IOException(..), 
                          IOErrorType( UnsupportedOperation ), 
                          unsafePerformIO, stToIO, ioException )
@@ -60,7 +59,7 @@ getCPUTime = do
 
 cpuTimePrecision :: Integer
 cpuTimePrecision = round ((1000000000000::Integer) % 
-                          fromInt (unsafePerformIO clockTicks))
+                          fromIntegral (unsafePerformIO clockTicks))
 
 foreign import "libHS_cbits" "getCPUTime" unsafe primGetCPUTime :: ByteArray Int -> IO Int
 foreign import "libHS_cbits" "clockTicks" unsafe clockTicks :: IO Int