Commit e66b09ee authored by ian@well-typed.com's avatar ian@well-typed.com
Browse files

Change a few throwGhcException uses to throwGhcExceptionIO

parent 7a6aa911
......@@ -240,7 +240,7 @@ lookupIE dflags ie con_nm
linkFail :: String -> String -> IO a
linkFail who what
= throwGhcException (ProgramError $
= throwGhcExceptionIO (ProgramError $
unlines [ "",who
, "During interactive linking, GHCi couldn't find the following symbol:"
, ' ' : ' ' : what
......
......@@ -44,8 +44,8 @@ prepForeignCall dflags cconv arg_types result_type
let res_ty = primRepToFFIType dflags result_type
r <- ffi_prep_cif cif abi (fromIntegral n_args) res_ty arg_arr
if (r /= fFI_OK)
then throwGhcException (InstallationError
("prepForeignCallFailed: " ++ show r))
then throwGhcExceptionIO (InstallationError
("prepForeignCallFailed: " ++ show r))
else return cif
convToABI :: CCallConv -> C_ffi_abi
......
......@@ -35,7 +35,7 @@ import TyCon ( TyCon )
import Name ( Name, nameModule_maybe )
import Id ( idType )
import Module ( Module, ModuleName )
import Panic ( GhcException(..), throwGhcException )
import Panic
import FastString
import ErrUtils
import Outputable
......@@ -165,5 +165,5 @@ throwCmdLineErrorS :: DynFlags -> SDoc -> IO a
throwCmdLineErrorS dflags = throwCmdLineError . showSDoc dflags
throwCmdLineError :: String -> IO a
throwCmdLineError = throwGhcException . CmdLineError
throwCmdLineError = throwGhcExceptionIO . CmdLineError
#endif
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