diff options
| author | pepe <unknown> | 2008-09-26 20:48:36 +0000 |
|---|---|---|
| committer | pepe <unknown> | 2008-09-26 20:48:36 +0000 |
| commit | ec197dfef33654dd16b5832905dad2e52f79f7ab (patch) | |
| tree | 02208340ce46e6c5ac09f783387843a015e7a17b /compiler/utils/IOEnv.hs | |
| parent | cd85694dcc3fd0cccbba84421185b41ae7fd762a (diff) | |
| download | haskell-ec197dfef33654dd16b5832905dad2e52f79f7ab.tar.gz | |
Don't capture error calls in tryUser
A previous patch slightly changed the semantics of tryUser.
This patch restores the original behaviour
(as expected in :print)
Diffstat (limited to 'compiler/utils/IOEnv.hs')
| -rw-r--r-- | compiler/utils/IOEnv.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/utils/IOEnv.hs b/compiler/utils/IOEnv.hs index 0cad752892..394a1c8f45 100644 --- a/compiler/utils/IOEnv.hs +++ b/compiler/utils/IOEnv.hs @@ -98,7 +98,7 @@ fixM f = IOEnv (\ env -> fixIO (\ r -> unIOEnv (f r) env)) #if __GLASGOW_HASKELL__ < 609 tryM :: IOEnv env r -> IOEnv env (Either Exception r) #else -tryM :: IOEnv env r -> IOEnv env (Either ErrorCall r) +tryM :: IOEnv env r -> IOEnv env (Either IOException r) #endif -- Reflect UserError exceptions (only) into IOEnv monad -- Other exceptions are not caught; they are simply propagated as exns |