Repository : ssh://darcs.haskell.org//srv/darcs/testsuite On branch : master
http://hackage.haskell.org/trac/ghc/changeset/ab1a521395f15a2cb4c1aea1a3dfe7cc8fd096c6 >--------------------------------------------------------------- commit ab1a521395f15a2cb4c1aea1a3dfe7cc8fd096c6 Author: Simon Marlow <[email protected]> Date: Wed Nov 23 11:28:03 2011 +0000 test SCC with omitted quotes >--------------------------------------------------------------- tests/profiling/should_run/scc002.hs | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/tests/profiling/should_run/scc002.hs b/tests/profiling/should_run/scc002.hs index e73b741..edf0670 100644 --- a/tests/profiling/should_run/scc002.hs +++ b/tests/profiling/should_run/scc002.hs @@ -23,4 +23,4 @@ Note the 2 entries for yan.\, the lambda expression inside yan. big :: Int -> Int big x = (array (0,1000000) [(0,x)] :: UArray Int Int) ! 0 -yan = {-# SCC "yan" #-} let e = big 20 in \x -> {-# SCC "yan1" #-} x + e +yan = {-# SCC yan #-} let e = big 20 in \x -> {-# SCC yan1 #-} x + e _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
