[project @ 1999-09-17 10:43:51 by sof]

[ghc-hetmet.git] / ghc / tests / codeGen / should_run / cg029.hs

diff --git a/ghc/tests/codeGen/should_run/cg029.hs b/ghc/tests/codeGen/should_run/cg029.hs
index 7c14131..9748af4 100644 (file)
--- a/ghc/tests/codeGen/should_run/cg029.hs
+++ b/ghc/tests/codeGen/should_run/cg029.hs
@@ -3,7 +3,6 @@ module Main(main) where
 -- In 0.19, we lost the ability to do ccalls with more than 6 arguments
 -- on the Sparc.  Just to make sure it never happens again...
 
-import GlaExts
 
 main = 
        _ccall_ printf "Testing %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d\n"
@@ -11,5 +10,5 @@ main =
        (11::Int) (12::Int) (13::Int) (14::Int) (15::Int) (16::Int) (17::Int) (18::Int)
        (21::Int) (22::Int) (23::Int) (24::Int) (25::Int) (26::Int) (27::Int) (28::Int)
        (31::Int) (32::Int) (33::Int) (34::Int) (35::Int) (36::Int) (37::Int) (38::Int)
-       `thenIO_Prim`  \ _ ->
+       >>
        return ()