From d63bc4ad546181837cd3e6441ee14ba93bda1ab8 Mon Sep 17 00:00:00 2001
From: sewardj <unknown>
Date: Fri, 10 Aug 2001 09:53:40 +0000
Subject: [PATCH] [project @ 2001-08-10 09:53:40 by sewardj] Fix Solaris
 borkage.  Sigh.

---
 ghc/lib/std/CPUTime.hsc |    6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/ghc/lib/std/CPUTime.hsc b/ghc/lib/std/CPUTime.hsc
index da083d7..4f88bd5 100644
--- a/ghc/lib/std/CPUTime.hsc
+++ b/ghc/lib/std/CPUTime.hsc
@@ -1,5 +1,5 @@
 -- -----------------------------------------------------------------------------
--- $Id: CPUTime.hsc,v 1.9 2001/07/13 11:48:52 rrt Exp $
+-- $Id: CPUTime.hsc,v 1.10 2001/08/10 09:53:40 sewardj Exp $
 --
 -- (c) The University of Glasgow, 1995-2001
 --
@@ -69,10 +69,10 @@ foreign import unsafe getrusage :: CInt -> Ptr CRUsage -> IO CInt
     u_ticks  <- (#peek struct tms,tms_utime) p_tms :: IO CClock
     s_ticks  <- (#peek struct tms,tms_stime) p_tms :: IO CClock
     return (( (fromIntegral u_ticks + fromIntegral s_ticks) * 1000000000000) 
-			`div` clockTicks)
+			`div` fromIntegral clockTicks)
 
 type CTms = ()
-foreign import unsafe times :: Ptr CTms -> CClock
+foreign import unsafe times :: Ptr CTms -> IO CClock
 # else
     ioException (IOError Nothing UnsupportedOperation 
 			 "getCPUTime"
-- 
1.7.10.4