X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fmain%2FGHC.hs;h=b713bc8714c63fe60763dc0e25af2e56cfc9a8fd;hp=e402d895212b20e9fceba57170dbb8e7a643cabc;hb=c9959e41ee1d72aa0ca28d51580f1ad3c06f0e8b;hpb=78f5cf9c5421ede69133e48823302375871e52c4

diff --git a/compiler/main/GHC.hs b/compiler/main/GHC.hs
index e402d89..b713bc8 100644
--- a/compiler/main/GHC.hs
+++ b/compiler/main/GHC.hs
@@ -284,8 +284,7 @@ import SysTools     ( initSysTools, cleanTempFiles, cleanTempFilesExcept,
                       cleanTempDirs )
 import Annotations
 import Module
-import LazyUniqFM
-import qualified UniqFM as UFM
+import UniqFM
 import FiniteMap
 import Panic
 import Digraph
@@ -2533,7 +2532,7 @@ packageDbModules :: GhcMonad m =>
                  -> m [Module]
 packageDbModules only_exposed = do
    dflags <- getSessionDynFlags
-   let pkgs = UFM.eltsUFM (pkgIdMap (pkgState dflags))
+   let pkgs = eltsUFM (pkgIdMap (pkgState dflags))
    return $
      [ mkModule pid modname | p <- pkgs
                             , not only_exposed || exposed p