[commit: testsuite] master: Change deprecated _scc_ to {-# SCC #-} (#8170) (d7b4529)

[git at git.haskell.org]

Repository : ssh://git at git.haskell.org/testsuite

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/d7b4529a141716c7f9c375d0a5b46349e5634e0b/testsuite

>---------------------------------------------------------------

commit d7b4529a141716c7f9c375d0a5b46349e5634e0b
Author: Krzysztof Gogolewski <krz.gogolewski at gmail.com>
Date:   Sat Aug 24 16:56:14 2013 +0200

    Change deprecated _scc_ to {-# SCC #-} (#8170)


>---------------------------------------------------------------

d7b4529a141716c7f9c375d0a5b46349e5634e0b
 tests/typecheck/should_run/tcrun002.hs |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/tests/typecheck/should_run/tcrun002.hs b/tests/typecheck/should_run/tcrun002.hs
index 3dff893..948ccfe 100644
--- a/tests/typecheck/should_run/tcrun002.hs
+++ b/tests/typecheck/should_run/tcrun002.hs
@@ -9,8 +9,8 @@ import GHC.IO
 
 sfoldl :: (a -> Int -> a) -> a -> [Int] -> a
 sfoldl f z [] = z
-sfoldl f z (x:xs) = _scc_ "sfoldl1" (sfoldl f fzx (fzx `seq` xs))
-                  where fzx = _scc_ "fzx" (f z x)
+sfoldl f z (x:xs) = {-# SCC "sfoldl1" #-} (sfoldl f fzx (fzx `seq` xs))
+                  where fzx = {-# SCC "fzx" #-} (f z x)
 
 
 main = IO (\s -> case print (sfoldl (+) (0::Int) [1..200000]) of { IO a -> a s })