Remove mAIN completely

dca1cb22 · fendor · Marge Bot · fc351ab8 · dca1cb22 · dca1cb22
Commit dca1cb22 authored Sep 30, 2020 by fendor Committed by Marge Bot Oct 01, 2020
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 4 deletions

compiler/GHC/Builtin/Names.hs compiler/GHC/Builtin/Names.hs +1 -2

compiler/GHC/Tc/Utils/Backpack.hs compiler/GHC/Tc/Utils/Backpack.hs +1 -2

No files found.
--- 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

--- 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