summaryrefslogtreecommitdiff
path: root/testsuite
diff options
context:
space:
mode:
authorSimon Peyton Jones <simonpj@microsoft.com>2011-07-18 09:10:55 +0100
committerSimon Peyton Jones <simonpj@microsoft.com>2011-07-18 09:10:55 +0100
commit3101c496c137648d610186c848a3c838064f3758 (patch)
tree74b541988e1a32cb1bc4cda01549accec8db7c56 /testsuite
parentc9d1b379a1bc76000efcc6d6bc616ff7ba78a10b (diff)
downloadhaskell-3101c496c137648d610186c848a3c838064f3758.tar.gz
Accept wibble in core-syntax printing
Diffstat (limited to 'testsuite')
-rw-r--r--testsuite/tests/ghc-regress/simplCore/should_compile/T4908.stderr6
-rw-r--r--testsuite/tests/ghc-regress/simplCore/should_compile/spec-inline.stderr2
-rw-r--r--testsuite/tests/ghc-regress/simplCore/should_run/T2486.stderr16
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