Tweak tcrun043 to test constraint tuple codegen

ghc · Sep 9, 2011 · c37e9c7 · c37e9c7
1 parent e807408
commit c37e9c7
Showing 1 changed file with 3 additions and 0 deletions.
diff --git 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)