diff options
Diffstat (limited to 'compiler/GHC/Runtime')
| -rw-r--r-- | compiler/GHC/Runtime/Eval.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/GHC/Runtime/Eval.hs b/compiler/GHC/Runtime/Eval.hs index 3d4e92d438..c514cd105b 100644 --- a/compiler/GHC/Runtime/Eval.hs +++ b/compiler/GHC/Runtime/Eval.hs @@ -669,8 +669,8 @@ rttiEnvironment hsc_env@HscEnv{hsc_IC=ic} = do Just new_ty -> do case improveRTTIType hsc_env old_ty new_ty of Nothing -> return $ - warnPprTrace True (text (":print failed to calculate the " - ++ "improvement for a type")) hsc_env + warnPprTrace True (":print failed to calculate the " + ++ "improvement for a type") empty hsc_env Just subst -> do let logger = hsc_logger hsc_env putDumpFileMaybe logger Opt_D_dump_rtti "RTTI" |