diff options
| -rw-r--r-- | compiler/GHC/Builtin/Names.hs | 3 | ||||
| -rw-r--r-- | compiler/GHC/Tc/Utils/Backpack.hs | 3 |
2 files changed, 2 insertions, 4 deletions
diff --git a/compiler/GHC/Builtin/Names.hs b/compiler/GHC/Builtin/Names.hs index dd4a3c075d..3628b6f3b4 100644 --- a/compiler/GHC/Builtin/Names.hs +++ b/compiler/GHC/Builtin/Names.hs @@ -610,8 +610,7 @@ gHC_OVER_LABELS = mkBaseModule (fsLit "GHC.OverloadedLabels") gHC_RECORDS :: Module gHC_RECORDS = mkBaseModule (fsLit "GHC.Records") -mAIN, rOOT_MAIN :: Module -mAIN = mkMainModule_ mAIN_NAME +rOOT_MAIN :: Module rOOT_MAIN = mkMainModule (fsLit ":Main") -- Root module for initialisation mkInteractiveModule :: Int -> Module diff --git a/compiler/GHC/Tc/Utils/Backpack.hs b/compiler/GHC/Tc/Utils/Backpack.hs index 407e666e6f..9d901b21c3 100644 --- a/compiler/GHC/Tc/Utils/Backpack.hs +++ b/compiler/GHC/Tc/Utils/Backpack.hs @@ -58,7 +58,6 @@ import GHC.Data.Maybe import GHC.Tc.Utils.Env import GHC.Types.Var import GHC.Iface.Syntax -import GHC.Builtin.Names import qualified Data.Map as Map import GHC.Driver.Finder @@ -346,7 +345,7 @@ tcRnCheckUnit hsc_env uid = initTc hsc_env HsigFile -- bogus False - mAIN -- bogus + (mainModIs dflags) (realSrcLocSpan (mkRealSrcLoc (fsLit loc_str) 0 0)) -- bogus $ checkUnit uid where |