Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Alex D
GHC
Commits
dca1cb22
Commit
dca1cb22
authored
Sep 30, 2020
by
fendor
Committed by
Marge Bot
Oct 01, 2020
Browse files
Remove mAIN completely
parent
fc351ab8
Changes
2
Hide whitespace changes
Inline
Side-by-side
compiler/GHC/Builtin/Names.hs
View file @
dca1cb22
...
...
@@ -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
...
...
compiler/GHC/Tc/Utils/Backpack.hs
View file @
dca1cb22
...
...
@@ -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
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment