Commit 965da058 authored by sewardj's avatar sewardj
Browse files

[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 -- GHC Interactive User Interface
-- --
...@@ -21,6 +21,7 @@ import Module ...@@ -21,6 +21,7 @@ import Module
import Outputable import Outputable
import Util import Util
import TypeRep {- instance Outputable Type; do not delete -} import TypeRep {- instance Outputable Type; do not delete -}
import Panic ( GhcException(..) )
import Exception import Exception
#ifndef NO_READLINE #ifndef NO_READLINE
...@@ -155,7 +156,7 @@ runCommand c = ...@@ -155,7 +156,7 @@ runCommand c =
io ( putStrLn ("Phase " ++ phase ++ " failed (code " io ( putStrLn ("Phase " ++ phase ++ " failed (code "
++ show code ++ ")")) ++ show code ++ ")"))
Interrupted -> io (putStrLn "Interrupted.") Interrupted -> io (putStrLn "Interrupted.")
_ -> io (putStrLn (show (dyn :: BarfKind))) _ -> io (putStrLn (show (dyn :: GhcException)))
>> return False >> return False
) $ ) $
doCommand c doCommand c
......
Supports Markdown
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