Commit bd881529 authored by simonmar's avatar simonmar
Browse files

[project @ 2002-10-15 11:01:29 by simonmar]

Don't need to export Exception.try or Exception.throwDyn here.
parent 2df806a5
......@@ -13,13 +13,7 @@ module Panic
(
GhcException(..), ghcError, progName,
panic, panic#, assertPanic, trace,
showException, showGhcException, Exception.throwDyn, tryMost,
Exception.Exception,
Panic.try, -- try :: IO a -> IO (Either Exception a)
-- This is Control.Exception.try in the new library story
-- Exception.tryAllIO in GHC 4.08
-- So it usefully hides the difference
showException, showGhcException, tryMost,
#if __GLASGOW_HASKELL__ <= 408
catchJust, ioErrors, throwTo,
......@@ -138,7 +132,7 @@ assertPanic file line =
-- files, for example.
tryMost :: IO a -> IO (Either Exception.Exception a)
tryMost action = do r <- try action; filter r
tryMost action = do r <- myTry action; filter r
where
filter (Left e@(Exception.DynException d))
| Just ghc_ex <- fromDynamic d
......@@ -150,9 +144,9 @@ tryMost action = do r <- try action; filter r
= return other
#if __GLASGOW_HASKELL__ <= 408
try = Exception.tryAllIO
myTry = Exception.tryAllIO
#else
try = Exception.try
myTry = Exception.try
#endif
\end{code}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment