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
fff26d8e
Commit
fff26d8e
authored
Aug 03, 2008
by
Ian Lynagh
Browse files
Fix the arith011 test now that catchAny is gone
parent
a52dd8d9
Changes
1
Hide whitespace changes
Inline
Side-by-side
testsuite/tests/ghc-regress/numeric/should_run/arith011.hs
View file @
fff26d8e
...
...
@@ -98,9 +98,10 @@ table2 nm op xs ys = do
]
putStrLn
"#"
where
op'
x
y
=
do
s
<-
Control
.
Exception
.
catchAny
(
evaluate
(
show
(
op
x
y
)))
(
return
.
show
)
putStrLn
(
show
x
++
" "
++
nm
++
" "
++
show
y
++
" = "
++
s
)
op'
x
y
=
do
s
<-
Control
.
Exception
.
catch
(
evaluate
(
show
(
op
x
y
)))
(
\
e
->
return
(
show
(
e
::
SomeException
)))
putStrLn
(
show
x
++
" "
++
nm
++
" "
++
show
y
++
" = "
++
s
)
testReadShow
zero
=
do
putStrLn
"testReadShow"
...
...
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