diff options
Diffstat (limited to 'compiler/GHC/Runtime/Eval.hs')
| -rw-r--r-- | compiler/GHC/Runtime/Eval.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/compiler/GHC/Runtime/Eval.hs b/compiler/GHC/Runtime/Eval.hs index 6880c2fec7..217df11ffb 100644 --- a/compiler/GHC/Runtime/Eval.hs +++ b/compiler/GHC/Runtime/Eval.hs @@ -44,8 +44,6 @@ module GHC.Runtime.Eval ( Term(..), obtainTermFromId, obtainTermFromVal, reconstructType ) where -#include "HsVersions.h" - import GHC.Prelude import GHC.Driver.Monad @@ -667,7 +665,7 @@ rttiEnvironment hsc_env@HscEnv{hsc_IC=ic} = do Just new_ty -> do case improveRTTIType hsc_env old_ty new_ty of Nothing -> return $ - WARN(True, text (":print failed to calculate the " + warnPprTrace True (text (":print failed to calculate the " ++ "improvement for a type")) hsc_env Just subst -> do let dflags = hsc_dflags hsc_env |