Repository : ssh://darcs.haskell.org//srv/darcs/testsuite On branch : master
http://hackage.haskell.org/trac/ghc/changeset/56a2e02581a0a589a5dc95dab58378e13dcc0809 >--------------------------------------------------------------- commit 56a2e02581a0a589a5dc95dab58378e13dcc0809 Author: Simon Peyton Jones <[email protected]> Date: Wed Nov 16 10:38:29 2011 +0000 Accept error message wobbles >--------------------------------------------------------------- tests/simplCore/should_compile/T3234.stderr | 95 +++++++++++++-------------- tests/simplCore/should_compile/T4201.stdout | 2 +- 2 files changed, 47 insertions(+), 50 deletions(-) diff --git a/tests/simplCore/should_compile/T3234.stderr b/tests/simplCore/should_compile/T3234.stderr index c4e601d..27db8d2 100644 --- a/tests/simplCore/should_compile/T3234.stderr +++ b/tests/simplCore/should_compile/T3234.stderr @@ -13,57 +13,54 @@ Total ticks: 45 14 PreInlineUnconditionally - 1 n - 1 a - 1 g - 1 xs - 1 ys - 1 k - 1 z - 1 x - 1 g - 1 h - 1 n - 1 a - 1 lvl - 1 lvl + 1 n + 1 a1 + 1 g + 1 xs + 1 ys + 1 k + 1 z + 1 x + 1 g + 1 h + 1 n + 1 a1 + 1 lvl + 1 lvl 2 PostInlineUnconditionally - 1 c - 1 c -1 UnfoldingDone - 1 GHC.Base.build + 1 c + 1 c +1 UnfoldingDone 1 GHC.Base.build 5 RuleFired - 1 ++ - 1 augment/build - 1 foldr/single - 1 unpack - 1 unpack-list -1 LetFloatFromLet - 1 + 1 ++ + 1 augment/build + 1 foldr/single + 1 unpack + 1 unpack-list +1 LetFloatFromLet 1 22 BetaReduction - 1 a - 1 b - 1 a - 1 g - 1 a - 1 xs - 1 ys - 1 b - 1 c - 1 n - 1 a - 1 b - 1 k - 1 z - 1 x - 1 a - 1 g - 1 h - 1 b - 1 c - 1 n - 1 a -10 SimplifierDone - 10 + 1 a1 + 1 b + 1 a + 1 g + 1 a + 1 xs + 1 ys + 1 b + 1 c + 1 n + 1 a + 1 b + 1 k + 1 z + 1 x + 1 a + 1 g + 1 h + 1 b + 1 c + 1 n + 1 a1 +10 SimplifierDone 10 diff --git a/tests/simplCore/should_compile/T4201.stdout b/tests/simplCore/should_compile/T4201.stdout index 46073c4..0009de1 100644 --- a/tests/simplCore/should_compile/T4201.stdout +++ b/tests/simplCore/should_compile/T4201.stdout @@ -1 +1 @@ - Eta.bof `cast` ((->) (Sym (Eta.NTCo:Foo)) (Refl Eta.T)) -} + ((->) (Sym (Eta.NTCo:Foo)) (Refl Eta.T))) -} _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
