[project @ 1999-02-19 17:11:59 by simonm]

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

diff --git a/ghc/tests/codeGen/should_run/cg044.hs b/ghc/tests/codeGen/should_run/cg044.hs
index 75efa61..c5afa9d 100644 (file)
--- a/ghc/tests/codeGen/should_run/cg044.hs
+++ b/ghc/tests/codeGen/should_run/cg044.hs
@@ -3,8 +3,8 @@ module Main(main) where
 
 main :: IO ()
 main = do
- sequence (map putStrLn double_tests)
- sequence (map putStrLn float_tests)
+ sequence_ (map putStrLn double_tests)
+ sequence_ (map putStrLn float_tests)
   where
    double_tests = run_tests double_numbers
    float_tests  = run_tests float_numbers