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 <[email protected]> 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 _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
