Commit 9cd6e6e1 authored by Krzysztof Gogolewski's avatar Krzysztof Gogolewski
Browse files

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

parent aa8559d7
......@@ -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 })
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment