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

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

diff --git a/ghc/compiler/tests/ccall/cc003.hs b/ghc/compiler/tests/ccall/cc003.hs
index 474a4b3..b8c8d35 100644 (file)
--- a/ghc/compiler/tests/ccall/cc003.hs
+++ b/ghc/compiler/tests/ccall/cc003.hs
@@ -1,8 +1,9 @@
 --!!! cc003 -- ccall with unresolved polymorphism (should fail)
+--!!! not anymore (as of 0.29, result type will default to ())
 module Test where
 
-import PreludeGlaST
+import GlaExts
 
 fubar :: PrimIO Int
-fubar = ccall f `seqPrimIO` ccall b
+fubar = _ccall_ f `seqPrimIO` _ccall_ b
                     --^ result type of f "lost" (never gets generalised)