diff options
Diffstat (limited to 'compiler/GHC.hs')
| -rw-r--r-- | compiler/GHC.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/compiler/GHC.hs b/compiler/GHC.hs index 95d35b85bd..9689bd828f 100644 --- a/compiler/GHC.hs +++ b/compiler/GHC.hs @@ -79,6 +79,7 @@ module GHC ( getModSummary, getModuleGraph, isLoaded, + isLoadedModule, topSortModuleGraph, -- * Inspecting modules @@ -1328,6 +1329,10 @@ isLoaded :: GhcMonad m => ModuleName -> m Bool isLoaded m = withSession $ \hsc_env -> return $! isJust (lookupHpt (hsc_HPT hsc_env) m) +isLoadedModule :: GhcMonad m => UnitId -> ModuleName -> m Bool +isLoadedModule uid m = withSession $ \hsc_env -> + return $! isJust (lookupHug (hsc_HUG hsc_env) uid m) + -- | Return the bindings for the current interactive session. getBindings :: GhcMonad m => m [TyThing] getBindings = withSession $ \hsc_env -> |