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/Runtime/Eval.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/Runtime/Eval.hs')
| -rw-r--r-- | compiler/GHC/Runtime/Eval.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/Runtime/Eval.hs b/compiler/GHC/Runtime/Eval.hs index 9c490f56c2..55b4f3d32b 100644 --- a/compiler/GHC/Runtime/Eval.hs +++ b/compiler/GHC/Runtime/Eval.hs @@ -814,7 +814,7 @@ getContext = withSession $ \HscEnv{ hsc_IC=ic } -> -- its full top-level scope available. moduleIsInterpreted :: GhcMonad m => Module -> m Bool moduleIsInterpreted modl = withSession $ \h -> - if moduleUnit modl /= thisPackage (hsc_dflags h) + if not (isHomeModule (hsc_dflags h) modl) then return False else case lookupHpt (hsc_HPT h) (moduleName modl) of Just details -> return (isJust (mi_globals (hm_iface details))) |