[commit: testsuite] master: Adjust seldom-run tests for flag changes (ccf3216)

[Simon Peyton Jones]

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

On branch  : master

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

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

commit ccf32161978ceb26faee572e83fcfd3984d980a4
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Wed Apr 25 15:32:51 2012 +0100

    Adjust seldom-run tests for flag changes

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

 tests/typecheck/should_run/IPRun.hs        |    2 +-
 tests/typecheck/should_run/tcrun034.hs     |   11 +++++++----
 tests/typecheck/should_run/tcrun034.stdout |    1 -
 3 files changed, 8 insertions(+), 6 deletions(-)

diff --git a/tests/typecheck/should_run/IPRun.hs b/tests/typecheck/should_run/IPRun.hs
index 66abe6d..38c47d3 100644
--- a/tests/typecheck/should_run/IPRun.hs
+++ b/tests/typecheck/should_run/IPRun.hs
@@ -1,4 +1,4 @@
-{-# LANGUAGE ImplicitParams #-}
+{-# LANGUAGE ImplicitParams, RankNTypes #-}
 
 module Main where
 
diff --git a/tests/typecheck/should_run/tcrun034.hs b/tests/typecheck/should_run/tcrun034.hs
index ac07869..60b70df 100644
--- a/tests/typecheck/should_run/tcrun034.hs
+++ b/tests/typecheck/should_run/tcrun034.hs
@@ -6,9 +6,12 @@ module Main where
 f1 :: forall m a b. (a `m` b) -> ((a `m` b) -> a) -> a
 f1 x g = g x
 
--- Infix type operator
-f2 :: forall a b (-->). (a --> b) -> ((a --> b) -> b) -> b
-f2 x g = g x
+-- Infix type operator..  Commented out because we no longer 
+-- infix operators to be variables; they are type constructors
+-- f2 :: forall a b (-->). (a --> b) -> ((a --> b) -> b) -> b
+-- f2 x g = g x
 
-main = do { print (f1 (3,5) fst); print (f2 (3,5) snd) }
+main = do { print (f1 (3,5) fst) 
+--        ; print (f2 (3,5) snd)
+          }
 
diff --git a/tests/typecheck/should_run/tcrun034.stdout b/tests/typecheck/should_run/tcrun034.stdout
index 7ee0007..00750ed 100644
--- a/tests/typecheck/should_run/tcrun034.stdout
+++ b/tests/typecheck/should_run/tcrun034.stdout
@@ -1,2 +1 @@
 3
-5