Change a few throwGhcException uses to throwGhcExceptionIO
authorIan Lynagh <ian@well-typed.com>
Wed, 30 Jan 2013 13:16:25 +0000 (13:16 +0000)
committerIan Lynagh <ian@well-typed.com>
Wed, 30 Jan 2013 17:43:44 +0000 (17:43 +0000)
compiler/ghci/ByteCodeLink.lhs
compiler/ghci/LibFFI.hsc
compiler/main/DynamicLoading.hs

index 6fcb7f4..06421dc 100644 (file)
@@ -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
index c939801..d3759f3 100644 (file)
@@ -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
index adcb0eb..889a09d 100644 (file)
@@ -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