Repository : ssh://darcs.haskell.org//srv/darcs/testsuite On branch : master
http://hackage.haskell.org/trac/ghc/changeset/433944c24d201e3a63a7a9e68c46009a7dce821d >--------------------------------------------------------------- commit 433944c24d201e3a63a7a9e68c46009a7dce821d Author: Simon Peyton Jones <simo...@microsoft.com> Date: Tue Jan 8 12:14:47 2013 +0000 Re-do commit 1b8b7f47018eb33bebb0d7f3ee451f7d858a0f8f, which got lost by mistake >--------------------------------------------------------------- tests/simplCore/should_compile/T7360.stderr | 12 +++++++++--- 1 files changed, 9 insertions(+), 3 deletions(-) diff --git a/tests/simplCore/should_compile/T7360.stderr b/tests/simplCore/should_compile/T7360.stderr index 366a60e..0c5bb89 100644 --- a/tests/simplCore/should_compile/T7360.stderr +++ b/tests/simplCore/should_compile/T7360.stderr @@ -1,6 +1,6 @@ ==================== Tidy Core ==================== -Result size of Tidy Core = {terms: 25, types: 22, coercions: 0} +Result size of Tidy Core = {terms: 27, types: 24, coercions: 0} T7360.$WFoo3 [InlPrag=INLINE] :: GHC.Types.Int -> T7360.Foo [GblId[DataConWrapper], @@ -38,13 +38,19 @@ T7360.fun2 :: forall a. [a] -> ((), GHC.Types.Int) Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False) Tmpl= \ (@ a) (x [Occ=Once] :: [a]) -> (T7360.fun3, - case GHC.List.$wlen @ a x 0 of ww { __DEFAULT -> + case x of wild { __DEFAULT -> + case GHC.List.$wlen @ a wild 0 of ww { __DEFAULT -> GHC.Types.I# ww + } })}] T7360.fun2 = \ (@ a) (x :: [a]) -> (T7360.fun3, - case GHC.List.$wlen @ a x 0 of ww { __DEFAULT -> GHC.Types.I# ww }) + case x of wild { __DEFAULT -> + case GHC.List.$wlen @ a wild 0 of ww { __DEFAULT -> + GHC.Types.I# ww + } + }) _______________________________________________ Cvs-ghc mailing list Cvs-ghc@haskell.org http://www.haskell.org/mailman/listinfo/cvs-ghc
