[commit: testsuite] master: Fix cgrun072 (4122100)

[Ian Lynagh]

Repository : ssh://darcs.haskell.org//srv/darcs/testsuite

On branch  : master

https://github.com/ghc/testsuite/commit/4122100457dd7b28ea0873a11dafcc213a2b7750

>---------------------------------------------------------------

commit 4122100457dd7b28ea0873a11dafcc213a2b7750
Author: Ian Lynagh <ian at well-typed.com>
Date:   Sun Jun 9 12:53:26 2013 +0100

    Fix cgrun072

>---------------------------------------------------------------

 tests/codeGen/should_run/cgrun072.hs     |   16 +++++++---------
 tests/codeGen/should_run/cgrun072.stdout |    1 -
 2 files changed, 7 insertions(+), 10 deletions(-)

diff --git a/tests/codeGen/should_run/cgrun072.hs b/tests/codeGen/should_run/cgrun072.hs
index 4a8b9aa..1634ac0 100644
--- a/tests/codeGen/should_run/cgrun072.hs
+++ b/tests/codeGen/should_run/cgrun072.hs
@@ -8,21 +8,19 @@ import GHC.Word
 
 #include "MachDeps.h"
 
-main = putStr
-       (test_bSwap16 ++ "\n"
-        ++ test_bSwap32 ++ "\n"
-        ++ test_bSwap64 ++ "\n"
-        ++ "\n"
-       )
+main :: IO ()
+main = do putStrLn test_bSwap16
+          putStrLn test_bSwap32
+          putStrLn test_bSwap64
 
 bswap16 :: Word16 -> Word16
-bswap16 (W16# w#) = W16# (bSwap16# w#)
+bswap16 (W16# w#) = W16# (byteSwap16# w#)
 
 bswap32 :: Word32 -> Word32
-bswap32 (W32# w#) = W32# (bSwap32# w#)
+bswap32 (W32# w#) = W32# (byteSwap32# w#)
 
 bswap64 :: Word64 -> Word64
-bswap64 (W64# w#) = W64# (bSwap64# w#)
+bswap64 (W64# w#) = W64# (byteSwap64# w#)
 
 slowBswap64 :: Word64 -> Word64
 slowBswap64 w =
diff --git a/tests/codeGen/should_run/cgrun072.stdout b/tests/codeGen/should_run/cgrun072.stdout
index cfa280a..0eabe36 100644
--- a/tests/codeGen/should_run/cgrun072.stdout
+++ b/tests/codeGen/should_run/cgrun072.stdout
@@ -1,4 +1,3 @@
 OK
 OK
 OK
-