Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Alex D
GHC
Commits
9cd6e6e1
Commit
9cd6e6e1
authored
Aug 24, 2013
by
Krzysztof Gogolewski
Browse files
Change deprecated _scc_ to {-# SCC #-} (#8170)
parent
aa8559d7
Changes
1
Hide whitespace changes
Inline
Side-by-side
testsuite/tests/typecheck/should_run/tcrun002.hs
View file @
9cd6e6e1
...
...
@@ -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
})
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment