diff options
| author | Ian Lynagh <ian@well-typed.com> | 2012-11-29 21:32:09 +0000 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2012-11-29 21:32:09 +0000 |
| commit | bd9e029927b25274f574104d837de0028e45a3d6 (patch) | |
| tree | 0c7b8a38d364986825c1d5199a0f3c23fbae392f /compiler/ghci | |
| parent | c2f9b74c234fe68637275351674619b8c525291d (diff) | |
| download | haskell-bd9e029927b25274f574104d837de0028e45a3d6.tar.gz | |
Remove a use of printf
It looks like it would fail anyway, as it 'show'ed its argument before
passing it on to printf.
Diffstat (limited to 'compiler/ghci')
| -rw-r--r-- | compiler/ghci/LibFFI.hsc | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/compiler/ghci/LibFFI.hsc b/compiler/ghci/LibFFI.hsc index 7137099763..c939801f97 100644 --- a/compiler/ghci/LibFFI.hsc +++ b/compiler/ghci/LibFFI.hsc @@ -21,7 +21,6 @@ import DynFlags import Control.Monad import Foreign import Foreign.C -import Text.Printf ---------------------------------------------------------------------------- @@ -46,7 +45,7 @@ prepForeignCall dflags cconv arg_types result_type r <- ffi_prep_cif cif abi (fromIntegral n_args) res_ty arg_arr if (r /= fFI_OK) then throwGhcException (InstallationError - (printf "prepForeignCallFailed: %d" (show r))) + ("prepForeignCallFailed: " ++ show r)) else return cif convToABI :: CCallConv -> C_ffi_abi |