% ------------------------------------------------------------------------------
-% $Id: Exception.lhs,v 1.1 2001/06/28 14:15:03 simonmar Exp $
+% $Id: Exception.lhs,v 1.3 2002/02/05 17:32:26 simonmar Exp $
%
% (c) The University of Glasgow, 1998-2000
%
throw, ioError )
where
+import Data.Either
+
import GHC.Base
-import GHC.Maybe
import GHC.IOBase
#endif
catch :: IO a -> (Exception -> IO a) -> IO a
catch m k = catchException m handler
where handler err@(IOException _) = k err
- handler err@(UserError _) = k err
handler other = throw other
\end{code}