[project @ 1997-05-26 05:58:06 by sof]

[ghc-hetmet.git] / ghc / compiler / tests / ccall / cc002.hs

diff --git a/ghc/compiler/tests/ccall/cc002.hs b/ghc/compiler/tests/ccall/cc002.hs
index 95a061b..c970d88 100644 (file)
--- a/ghc/compiler/tests/ccall/cc002.hs
+++ b/ghc/compiler/tests/ccall/cc002.hs
@@ -2,14 +2,15 @@
 
 module Test where
 
-import PreludeGlaST
+import GlaExts
+import Foreign
 
 -- Test returning results
 
 a :: PrimIO ForeignObj
 a = _ccall_ a
 
-b :: PrimIO StablePtr
+b :: PrimIO (StablePtr Double)
 b = _ccall_ b
 
 -- Test taking arguments
@@ -17,5 +18,5 @@ b = _ccall_ b
 c :: ForeignObj -> PrimIO Int
 c x = _ccall_ c x
 
-d :: StablePtr -> PrimIO Int
+d :: StablePtr Int -> PrimIO Int
 d x = _ccall_ d x