diff options
| author | Sylvain Henry <sylvain@haskus.fr> | 2020-05-07 18:03:36 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-06-13 02:13:02 -0400 |
| commit | 72d086106d49bc18277f3a066e671e87e9b37a1b (patch) | |
| tree | ff20c2926d4234c2cecc5d230859fc9fce09bb85 /compiler/GHC/Rename/Module.hs | |
| parent | 7a02599afe836ac32c2e732671415d0afdfbf7fb (diff) | |
| download | haskell-72d086106d49bc18277f3a066e671e87e9b37a1b.tar.gz | |
Refactor homeUnit
* rename thisPackage into homeUnit
* document and refactor several Backpack things
Diffstat (limited to 'compiler/GHC/Rename/Module.hs')
| -rw-r--r-- | compiler/GHC/Rename/Module.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/GHC/Rename/Module.hs b/compiler/GHC/Rename/Module.hs index deee12a726..533a794807 100644 --- a/compiler/GHC/Rename/Module.hs +++ b/compiler/GHC/Rename/Module.hs @@ -373,8 +373,8 @@ rnHsForeignDecl (ForeignImport { fd_name = name, fd_sig_ty = ty, fd_fi = spec }) ; (ty', fvs) <- rnHsSigType (ForeignDeclCtx name) TypeLevel Nothing ty -- Mark any PackageTarget style imports as coming from the current package - ; let unitId = thisPackage $ hsc_dflags topEnv - spec' = patchForeignImport unitId spec + ; let unitId = homeUnit $ hsc_dflags topEnv + spec' = patchForeignImport unitId spec ; return (ForeignImport { fd_i_ext = noExtField , fd_name = name', fd_sig_ty = ty' |