diff options
Diffstat (limited to 'compiler/GHC/CoreToStg')
| -rw-r--r-- | compiler/GHC/CoreToStg/Prep.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/compiler/GHC/CoreToStg/Prep.hs b/compiler/GHC/CoreToStg/Prep.hs index d03df0eedb..20d689e3b0 100644 --- a/compiler/GHC/CoreToStg/Prep.hs +++ b/compiler/GHC/CoreToStg/Prep.hs @@ -32,8 +32,7 @@ import GHC.Builtin.Types import GHC.Core.Utils import GHC.Core.Opt.Arity -import GHC.Core.Opt.Monad ( CoreToDo(..) ) -import GHC.Core.Lint ( EndPassConfig, endPassIO ) +import GHC.Core.Lint ( EndPassConfig(..), endPassIO ) import GHC.Core import GHC.Core.Make hiding( FloatBind(..) ) -- We use our own FloatBind here import GHC.Core.Type @@ -262,7 +261,7 @@ corePrepPgm logger cp_cfg pgm_cfg return (deFloatTop (floats1 `appendFloats` floats2)) endPassIO logger (cpPgm_endPassConfig pgm_cfg) - alwaysQualify CorePrep binds_out [] + binds_out [] return binds_out corePrepExpr :: Logger -> CorePrepConfig -> CoreExpr -> IO CoreExpr |