diff options
| author | Alan Zimmerman <alan.zimm@gmail.com> | 2021-10-23 10:49:55 +0100 |
|---|---|---|
| committer | Alan Zimmerman <alan.zimm@gmail.com> | 2021-10-23 10:49:55 +0100 |
| commit | 65e5de54803859d5ae71d6f2f6e0d79a0bf7f979 (patch) | |
| tree | 5004151ffd969aa238132ce718c0eac6a8ccd5c3 /compiler/GHC/Tc/Module.hs | |
| parent | dd2dba808aaa957c3d036b0025b412c499aace3d (diff) | |
| download | haskell-wip/az/locateda-modulename.tar.gz | |
EPA: Use LocatedA for ModuleNamewip/az/locateda-modulename
This allows us to use an Anchor with a DeltaPos in it when exact
printing.
Diffstat (limited to 'compiler/GHC/Tc/Module.hs')
| -rw-r--r-- | compiler/GHC/Tc/Module.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/GHC/Tc/Module.hs b/compiler/GHC/Tc/Module.hs index 2c425e6eda..cb71508227 100644 --- a/compiler/GHC/Tc/Module.hs +++ b/compiler/GHC/Tc/Module.hs @@ -223,7 +223,7 @@ tcRnModule hsc_env mod_sum save_rn_syntax pair :: (Module, SrcSpan) pair@(this_mod,_) | Just (L mod_loc mod) <- hsmodName this_module - = (mkHomeModule home_unit mod, mod_loc) + = (mkHomeModule home_unit mod, locA mod_loc) | otherwise -- 'module M where' is omitted = (mkHomeModule home_unit mAIN_NAME, srcLocSpan (srcSpanStart loc)) @@ -271,7 +271,7 @@ tcRnModuleTcRnM hsc_env mod_sum ; -- TODO This is a little skeevy; maybe handle a bit more directly let { simplifyImport (L _ idecl) = ( renameRawPkgQual (hsc_unit_env hsc_env) (ideclPkgQual idecl) - , ideclName idecl) + , reLoc $ ideclName idecl) } ; raw_sig_imports <- liftIO $ findExtraSigImports hsc_env hsc_src |