GHC: Drop dead packageDbModules

It was already commented out and contained a reference to the
non-deterministic nameEnvElts so let's just drop it.

1 files changed, 0 insertions, 24 deletions

diff --git a/compiler/GHC.hs b/compiler/GHC.hs
index a95757b8fd..0e4f781a29 100644
--- a/compiler/GHC.hs
+++ b/compiler/GHC.hs
@@ -96,9 +96,6 @@ module GHC (
         ModIface, ModIface_(..),
         SafeHaskellMode(..),
 
-        -- * Querying the environment
-        -- packageDbModules,
-
         -- * Printing
         PrintUnqualified, alwaysQualify,
 
@@ -1517,27 +1514,6 @@ getNameToInstancesIndex visible_mods mods_to_load = do
            ] }
 
 -- -----------------------------------------------------------------------------
-
-{- ToDo: Move the primary logic here to "GHC.Unit.State"
--- | Return all /external/ modules available in the package database.
--- Modules from the current session (i.e., from the 'HomePackageTable') are
--- not included.  This includes module names which are reexported by packages.
-packageDbModules :: GhcMonad m =>
-                    Bool  -- ^ Only consider exposed packages.
-                 -> m [Module]
-packageDbModules only_exposed = do
-   dflags <- getSessionDynFlags
-   let pkgs = eltsUFM (unitInfoMap (unitState dflags))
-   return $
-     [ mkModule pid modname
-     | p <- pkgs
-     , not only_exposed || exposed p
-     , let pid = mkUnit p
-     , modname <- exposedModules p
-               ++ map exportName (reexportedModules p) ]
-               -}
-
--- -----------------------------------------------------------------------------
 -- Misc exported utils
 
 dataConType :: DataCon -> Type