Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
40ef62f6
Commit
40ef62f6
authored
Dec 13, 2011
by
Ian Lynagh
Browse files
Remove some dead code
parent
e8c93ad1
Changes
1
Hide whitespace changes
Inline
Side-by-side
compiler/utils/Exception.hs
View file @
40ef62f6
...
...
@@ -74,19 +74,11 @@ class Monad m => ExceptionMonad m where
_
<-
sequel
return
r
#
if
__GLASGOW_HASKELL__
<
613
instance
ExceptionMonad
IO
where
gcatch
=
catch
gmask
f
=
block
$
f
unblock
gblock
=
block
gunblock
=
unblock
#
else
instance
ExceptionMonad
IO
where
gcatch
=
catch
gmask
f
=
mask
(
\
x
->
f
x
)
gblock
=
block
gunblock
=
unblock
#
endif
gtry
::
(
ExceptionMonad
m
,
Exception
e
)
=>
m
a
->
m
(
Either
e
a
)
gtry
act
=
gcatch
(
act
>>=
\
a
->
return
(
Right
a
))
...
...
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