Repository : ssh://g...@git.haskell.org/testsuite
On branch : master
Link :
http://ghc.haskell.org/trac/ghc/changeset/d7b4529a141716c7f9c375d0a5b46349e5634e0b/testsuite
>---------------------------------------------------------------
commit d7b4529a141716c7f9c375d0a5b46349e5634e0b
Author: Krzysztof Gogolewski <krz.gogolew...@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
})
_______________________________________________
ghc-commits mailing list
ghc-commits@haskell.org
http://www.haskell.org/mailman/listinfo/ghc-commits
