Repository : ssh://darcs.haskell.org//srv/darcs/testsuite On branch : master
http://hackage.haskell.org/trac/ghc/changeset/1b8b7f47018eb33bebb0d7f3ee451f7d858a0f8f >--------------------------------------------------------------- commit 1b8b7f47018eb33bebb0d7f3ee451f7d858a0f8f Author: Simon Peyton Jones <simo...@microsoft.com> Date: Fri Jan 4 10:32:28 2013 +0000 Wibble to output, now that CaseElim is less aggressive. >--------------------------------------------------------------- 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 5cc46cb..f7a7bcf 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: 20, types: 17, coercions: 0} +Result size of Tidy Core = {terms: 22, types: 19, coercions: 0} T7360.$WFoo3 [InlPrag=INLINE] :: GHC.Types.Int -> T7360.Foo [GblId[DataConWrapper], @@ -36,12 +36,18 @@ T7360.fun2 :: forall a. [a] -> GHC.Types.Int ConLike=True, WorkFree=True, Expandable=True, Guidance=ALWAYS_IF(unsat_ok=True,boring_ok=False) Tmpl= \ (@ a) (x [Occ=Once] :: [a]) -> - 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]) -> - 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
