[project @ 1999-06-12 16:17:23 by keithw]

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

diff --git a/ghc/lib/std/CPUTime.lhs b/ghc/lib/std/CPUTime.lhs
index e02a29e..1256d23 100644 (file)
--- a/ghc/lib/std/CPUTime.lhs
+++ b/ghc/lib/std/CPUTime.lhs
@@ -28,7 +28,7 @@ import IO             ( ioError )
 import Ratio
 
 #ifdef __HUGS__
-#define cat2(x,y)  x/**/y
+#define cat2(x,y)  x##y
 #define CCALL(fun) cat2(prim_,fun)
 #define stToIO id
 #define sizeof_int64 8
@@ -72,7 +72,7 @@ getCPUTime = do
 
 getCPUTime :: IO Integer
 getCPUTime = 
-    stToIO (newIntArray (0,3))         >>= \ marr ->
+    stToIO (newIntArray ((0::Int),3))  >>= \ marr ->
     stToIO (unsafeFreezeByteArray marr)        >>= \ barr@(ByteArray _ frozen#) ->
     _ccall_ getCPUTime barr            >>= \ ptr ->
     if (ptr::Addr) /= ``NULL'' then