X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fmain%2FPackages.lhs;h=ba51f80f286b526c1e327ee30d5bb7374750ba16;hb=53f50b718b9c6abcf4d61c95f1e4d355934a2550;hp=fb54a1291fbf6cca5fc7f8c146533c348820ae64;hpb=572b1e3014b1a19e126134f98ddc399fa75c8659;p=ghc-hetmet.git

diff --git a/compiler/main/Packages.lhs b/compiler/main/Packages.lhs
index fb54a12..ba51f80 100644
--- a/compiler/main/Packages.lhs
+++ b/compiler/main/Packages.lhs
@@ -167,7 +167,8 @@ initPackages dflags = do
                 Just db -> return db
   (pkg_state, preload, this_pkg)       
         <- mkPackageState dflags pkg_db [] (thisPackage dflags)
-  return (dflags{ pkgState = pkg_state,
+  return (dflags{ pkgDatabase = Just pkg_db,
+		  pkgState = pkg_state,
                   thisPackage = this_pkg },
           preload)