[commit: testsuite] master: Accept wibble in core-syntax printing (0c90770)

[Simon Peyton Jones]

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

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/0c90770ec3399f18ffc2cec8f11f58ed4702a1ce

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

commit 0c90770ec3399f18ffc2cec8f11f58ed4702a1ce
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Mon Jul 18 09:10:55 2011 +0100

    Accept wibble in core-syntax printing

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

 .../simplCore/should_compile/T4908.stderr          |    6 +++---
 .../simplCore/should_compile/spec-inline.stderr    |    2 +-
 .../ghc-regress/simplCore/should_run/T2486.stderr  |   16 ++++++++--------
 3 files changed, 12 insertions(+), 12 deletions(-)

diff --git a/tests/ghc-regress/simplCore/should_compile/T4908.stderr b/tests/ghc-regress/simplCore/should_compile/T4908.stderr
index be52e5c..9e24e6f 100644
--- a/tests/ghc-regress/simplCore/should_compile/T4908.stderr
+++ b/tests/ghc-regress/simplCore/should_compile/T4908.stderr
@@ -64,9 +64,9 @@ T4908.f =
 
 ------ Local rules for imported ids --------
 "SC:$wf0" [ALWAYS]
-    forall {sc :: GHC.Types.Int
-            sc1 :: GHC.Prim.Int#
-            sc2 :: GHC.Prim.Int#}
+    forall (sc :: GHC.Types.Int)
+           (sc1 :: GHC.Prim.Int#)
+           (sc2 :: GHC.Prim.Int#).
       T4908.$wf sc2 (sc, GHC.Types.I# sc1)
       = T4908.f_$s$wf sc sc1 sc2
 
diff --git a/tests/ghc-regress/simplCore/should_compile/spec-inline.stderr b/tests/ghc-regress/simplCore/should_compile/spec-inline.stderr
index 8d92426..cd5d922 100644
--- a/tests/ghc-regress/simplCore/should_compile/spec-inline.stderr
+++ b/tests/ghc-regress/simplCore/should_compile/spec-inline.stderr
@@ -144,7 +144,7 @@ Roman.foo =
 
 ------ Local rules for imported ids --------
 "SC:$wgo0" [ALWAYS]
-    forall {sc :: GHC.Prim.Int# sc1 :: GHC.Prim.Int#}
+    forall (sc :: GHC.Prim.Int#) (sc1 :: GHC.Prim.Int#).
       Roman.$wgo (Data.Maybe.Just @ GHC.Types.Int (GHC.Types.I# sc1))
                  (Data.Maybe.Just @ GHC.Types.Int (GHC.Types.I# sc))
       = Roman.foo_$s$wgo sc sc1
diff --git a/tests/ghc-regress/simplCore/should_run/T2486.stderr b/tests/ghc-regress/simplCore/should_run/T2486.stderr
index 6a50eef..968e8db 100644
--- a/tests/ghc-regress/simplCore/should_run/T2486.stderr
+++ b/tests/ghc-regress/simplCore/should_run/T2486.stderr
@@ -1,23 +1,23 @@
 
 ==================== Tidy Core rules ====================
 "SPEC Main.fib [GHC.Types.Double]" [ALWAYS]
-    forall {$dNum :: GHC.Num.Num GHC.Types.Double
-            $dOrd :: GHC.Classes.Ord GHC.Types.Double}
+    forall ($dNum :: GHC.Num.Num GHC.Types.Double)
+           ($dOrd :: GHC.Classes.Ord GHC.Types.Double).
       Main.fib @ GHC.Types.Double $dNum $dOrd
       = Main.fib_$sfib1
 "SPEC Main.fib [GHC.Types.Int]" [ALWAYS]
-    forall {$dNum :: GHC.Num.Num GHC.Types.Int
-            $dOrd :: GHC.Classes.Ord GHC.Types.Int}
+    forall ($dNum :: GHC.Num.Num GHC.Types.Int)
+           ($dOrd :: GHC.Classes.Ord GHC.Types.Int).
       Main.fib @ GHC.Types.Int $dNum $dOrd
       = Main.fib_$sfib
 "SPEC Main.tak [GHC.Types.Double]" [ALWAYS]
-    forall {$dNum :: GHC.Num.Num GHC.Types.Double
-            $dOrd :: GHC.Classes.Ord GHC.Types.Double}
+    forall ($dNum :: GHC.Num.Num GHC.Types.Double)
+           ($dOrd :: GHC.Classes.Ord GHC.Types.Double).
       Main.tak @ GHC.Types.Double $dNum $dOrd
       = Main.tak_$stak1
 "SPEC Main.tak [GHC.Types.Int]" [ALWAYS]
-    forall {$dNum :: GHC.Num.Num GHC.Types.Int
-            $dOrd :: GHC.Classes.Ord GHC.Types.Int}
+    forall ($dNum :: GHC.Num.Num GHC.Types.Int)
+           ($dOrd :: GHC.Classes.Ord GHC.Types.Int).
       Main.tak @ GHC.Types.Int $dNum $dOrd
       = Main.tak_$stak