From c37e9c7098a7b240b29c160f1c3c1ab9dbbe8f6a Mon Sep 17 00:00:00 2001
From: Max Bolingbroke <batterseapower@hotmail.com>
Date: Fri, 9 Sep 2011 13:29:29 +0100
Subject: [PATCH] Tweak tcrun043 to test constraint tuple codegen
---
tests/typecheck/should_run/tcrun043.hs | 3 +++
1 file changed, 3 insertions(+)
diff --git a/tests/typecheck/should_run/tcrun043.hs b/tests/typecheck/should_run/tcrun043.hs
index 6500df700..152dba312 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)
--
GitLab