[commit: testsuite] master, no-pred-ty: Tweak tcrun043 to test constraint tuple codegen (c37e9c7)

[Max Bolingbroke]

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

On branches: master,no-pred-ty

http://hackage.haskell.org/trac/ghc/changeset/c37e9c7098a7b240b29c160f1c3c1ab9dbbe8f6a

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

commit c37e9c7098a7b240b29c160f1c3c1ab9dbbe8f6a
Author: Max Bolingbroke <batterseapower at hotmail.com>
Date:   Fri Sep 9 13:29:29 2011 +0100

    Tweak tcrun043 to test constraint tuple codegen

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

 tests/typecheck/should_run/tcrun043.hs |    3 +++
 1 files changed, 3 insertions(+), 0 deletions(-)

diff --git a/tests/typecheck/should_run/tcrun043.hs b/tests/typecheck/should_run/tcrun043.hs
index 6500df7..152dba3 100644
--- a/tests/typecheck/should_run/tcrun043.hs
+++ b/tests/typecheck/should_run/tcrun043.hs
@@ -24,6 +24,9 @@ g Fish x = Right (x + 1)
 
 type TwoConstraints a = (Show a, Num a)
 
+-- We'll NOINLINE h so that we test the code generation for
+-- constraint tuples
+{-# NOINLINE h #-}
 h :: TwoConstraints a => a -> String
 h x = show (x + 1)