Commit 965da058 authored by sewardj's avatar sewardj

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

BarfKind --> GhcException
parent 91227475
-----------------------------------------------------------------------------
-- $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
......
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