diff options
| author | Fendor <power.walross@gmail.com> | 2020-09-30 19:04:33 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-10-01 18:35:33 -0400 |
| commit | dca1cb22cab4fa7f5937e9ffdc0ee32313dbd01c (patch) | |
| tree | ad86e016ffcc557cf5e0a18fcd67447ae98e611c | |
| parent | fc351ab8fbf02eaf473e97b3ce8c4cddcba3a8a5 (diff) | |
| download | haskell-dca1cb22cab4fa7f5937e9ffdc0ee32313dbd01c.tar.gz | |
Remove mAIN completely
| -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 |