From bd881529c7dd070b79fc8ad4aa3ac47bc79fbe96 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Tue, 15 Oct 2002 11:01:29 +0000
Subject: [PATCH] [project @ 2002-10-15 11:01:29 by simonmar] Don't need to
 export Exception.try or Exception.throwDyn here.

---
 ghc/compiler/utils/Panic.lhs |   14 ++++----------
 1 file changed, 4 insertions(+), 10 deletions(-)

diff --git a/ghc/compiler/utils/Panic.lhs b/ghc/compiler/utils/Panic.lhs
index 32b19ab..01d1568 100644
--- a/ghc/compiler/utils/Panic.lhs
+++ b/ghc/compiler/utils/Panic.lhs
@@ -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}	
 
-- 
1.7.10.4