diff options
Diffstat (limited to 'compiler/ghci/LibFFI.hsc')
| -rw-r--r-- | compiler/ghci/LibFFI.hsc | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/ghci/LibFFI.hsc b/compiler/ghci/LibFFI.hsc index 128197109b..d46d1b94cd 100644 --- a/compiler/ghci/LibFFI.hsc +++ b/compiler/ghci/LibFFI.hsc @@ -52,7 +52,7 @@ 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 ghcError (InstallationError + then throwGhcException (InstallationError (printf "prepForeignCallFailed: %d" (show r))) else return cif |