diff options
| author | Alan Zimmerman <alan.zimm@gmail.com> | 2022-10-23 23:31:55 +0100 |
|---|---|---|
| committer | Alan Zimmerman <alan.zimm@gmail.com> | 2022-10-23 23:31:55 +0100 |
| commit | 42af525b29d8237b923181ce59440fd14d3efd2a (patch) | |
| tree | 7772a1ece26f603b7076b7b98464f6e7118fcd5f /compiler/GHC/Tc/Gen/Export.hs | |
| parent | 0e5a0c4c03ed8a74f7bfd459e23cb63eb751b10e (diff) | |
| download | haskell-wip/az/locatedn-epa-improve.tar.gz | |
Start on making LocatedN more directwip/az/locatedn-epa-improve
Diffstat (limited to 'compiler/GHC/Tc/Gen/Export.hs')
| -rw-r--r-- | compiler/GHC/Tc/Gen/Export.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/Tc/Gen/Export.hs b/compiler/GHC/Tc/Gen/Export.hs index d42ee046b5..10830b9cd5 100644 --- a/compiler/GHC/Tc/Gen/Export.hs +++ b/compiler/GHC/Tc/Gen/Export.hs @@ -190,7 +190,7 @@ rnExports explicit_mod exports | explicit_mod = exports | has_main = Just (noLocA [noLocA (IEVar noExtField - (noLocA (IEName noExtField $ noLocA default_main)))]) + (noLocA (IEName noExtField $ noLocN default_main)))]) -- ToDo: the 'noLoc' here is unhelpful if 'main' -- turns out to be out of scope | otherwise = Nothing |