Permalink
Browse files

Tweak tcrun043 to test constraint tuple codegen

  • Loading branch information...
1 parent e807408 commit c37e9c7098a7b240b29c160f1c3c1ab9dbbe8f6a @batterseapower batterseapower committed Sep 9, 2011
Showing with 3 additions and 0 deletions.
  1. +3 −0 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)

0 comments on commit c37e9c7

Please sign in to comment.