Use HomeUnit for main module without module declaration

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

Showing with 1 addition and 1 deletion

compiler/GHC/Tc/Module.hs compiler/GHC/Tc/Module.hs +1 -1

No files found.
--- a/compiler/GHC/Tc/Module.hs
+++ b/compiler/GHC/Tc/Module.hs
@@ -194,7 +194,7 @@ tcRnModule hsc_env mod_sum save_rn_syntax
      = (mkHomeModule home_unit mod, mod_loc)

      | otherwise   -- 'module M where' is omitted
-      = (mAIN, srcLocSpan (srcSpanStart loc))
+      = (mkHomeModule home_unit mAIN_NAME, srcLocSpan (srcSpanStart loc))