diff options
| author | Ian Lynagh <ian@well-typed.com> | 2013-01-30 13:16:25 +0000 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2013-01-30 17:43:44 +0000 |
| commit | e66b09ee73e7589c8b16a4e5f0bdef72c8bcd62d (patch) | |
| tree | 2140131bd8bdfcc98470ef2226a73afdbf0a2c83 /compiler/ghci/LibFFI.hsc | |
| parent | 7a6aa9116d0e0518302ea443256b747e9070bed2 (diff) | |
| download | haskell-e66b09ee73e7589c8b16a4e5f0bdef72c8bcd62d.tar.gz | |
Change a few throwGhcException uses to throwGhcExceptionIO
Diffstat (limited to 'compiler/ghci/LibFFI.hsc')
| -rw-r--r-- | compiler/ghci/LibFFI.hsc | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/ghci/LibFFI.hsc b/compiler/ghci/LibFFI.hsc index c939801f97..d3759f3c09 100644 --- a/compiler/ghci/LibFFI.hsc +++ b/compiler/ghci/LibFFI.hsc @@ -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 |