Repository : ssh://darcs.haskell.org//srv/darcs/testsuite On branch : ghc-7.2
http://hackage.haskell.org/trac/ghc/changeset/e965e8ffc6e045fbca5cd9a453a2bb5f618fc222 >--------------------------------------------------------------- commit e965e8ffc6e045fbca5cd9a453a2bb5f618fc222 Author: Simon Peyton Jones <[email protected]> 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 _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
