diff options
author | Simon Peyton Jones <simonpj@microsoft.com> | 2011-07-18 09:10:55 +0100 |
---|---|---|
committer | Simon Peyton Jones <simonpj@microsoft.com> | 2011-07-18 09:10:55 +0100 |
commit | 3101c496c137648d610186c848a3c838064f3758 (patch) | |
tree | 74b541988e1a32cb1bc4cda01549accec8db7c56 /testsuite | |
parent | c9d1b379a1bc76000efcc6d6bc616ff7ba78a10b (diff) | |
download | haskell-3101c496c137648d610186c848a3c838064f3758.tar.gz |
Accept wibble in core-syntax printing
Diffstat (limited to 'testsuite')
3 files changed, 12 insertions, 12 deletions
diff --git a/testsuite/tests/ghc-regress/simplCore/should_compile/T4908.stderr b/testsuite/tests/ghc-regress/simplCore/should_compile/T4908.stderr index be52e5c57d..9e24e6fca8 100644 --- a/testsuite/tests/ghc-regress/simplCore/should_compile/T4908.stderr +++ b/testsuite/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/testsuite/tests/ghc-regress/simplCore/should_compile/spec-inline.stderr b/testsuite/tests/ghc-regress/simplCore/should_compile/spec-inline.stderr index 8d9242615a..cd5d922ffc 100644 --- a/testsuite/tests/ghc-regress/simplCore/should_compile/spec-inline.stderr +++ b/testsuite/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/testsuite/tests/ghc-regress/simplCore/should_run/T2486.stderr b/testsuite/tests/ghc-regress/simplCore/should_run/T2486.stderr index 6a50eef359..968e8dbdb4 100644 --- a/testsuite/tests/ghc-regress/simplCore/should_run/T2486.stderr +++ b/testsuite/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 |