diff options
| author | David Waern <david.waern@gmail.com> | 2011-11-26 22:10:28 +0100 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2011-11-26 22:10:28 +0100 |
| commit | 07c816c5e548824bb089442cf32d70682e47200b (patch) | |
| tree | 5300bfd77bd12fbbfbf604844057d43f2d22eec6 /src/Haddock/GhcUtils.hs | |
| parent | 638683cbe3d68427273ad71eeb8f704e165952fa (diff) | |
Fix module reference bug.
Diffstat (limited to 'src/Haddock/GhcUtils.hs')
| -rw-r--r-- | src/Haddock/GhcUtils.hs | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/src/Haddock/GhcUtils.hs b/src/Haddock/GhcUtils.hs index 6d170586..2fb8c8a3 100644 --- a/src/Haddock/GhcUtils.hs +++ b/src/Haddock/GhcUtils.hs @@ -61,10 +61,6 @@ unpackPackageId p where str = packageIdString p -mkModuleNoPackage :: String -> Module -mkModuleNoPackage str = mkModule (stringToPackageId "") (mkModuleName str) - - lookupLoadedHomeModuleGRE :: GhcMonad m => ModuleName -> m (Maybe GlobalRdrEnv) lookupLoadedHomeModuleGRE mod_name = withSession $ \hsc_env -> case lookupUFM (hsc_HPT hsc_env) mod_name of |