From: sewardj <unknown>
Date: Wed, 13 Dec 2000 12:18:40 +0000 (+0000)
Subject: [project @ 2000-12-13 12:18:40 by sewardj]
X-Git-Tag: Approximately_9120_patches~3105
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=965da058985d1501d92377fdd8b54d53cc6b5e02;p=ghc-hetmet.git

[project @ 2000-12-13 12:18:40 by sewardj]
BarfKind --> GhcException
---

diff --git a/ghc/compiler/ghci/InteractiveUI.hs b/ghc/compiler/ghci/InteractiveUI.hs
index 52559b7..45a3e18 100644
--- a/ghc/compiler/ghci/InteractiveUI.hs
+++ b/ghc/compiler/ghci/InteractiveUI.hs
@@ -1,5 +1,5 @@
 -----------------------------------------------------------------------------
--- $Id: InteractiveUI.hs,v 1.22 2000/12/12 10:11:21 sewardj Exp $
+-- $Id: InteractiveUI.hs,v 1.23 2000/12/13 12:18:40 sewardj Exp $
 --
 -- GHC Interactive User Interface
 --
@@ -21,6 +21,7 @@ import Module
 import Outputable
 import Util
 import TypeRep	{- instance Outputable Type; do not delete -}
+import Panic	( GhcException(..) )
 
 import Exception
 #ifndef NO_READLINE
@@ -155,7 +156,7 @@ runCommand c =
 			io ( putStrLn ("Phase " ++ phase ++ " failed (code "
 				        ++ show code ++ ")"))
 		Interrupted -> io (putStrLn "Interrupted.")
-		_ -> io (putStrLn (show (dyn :: BarfKind)))
+		_ -> io (putStrLn (show (dyn :: GhcException)))
              >> return False
     ) $
    doCommand c