From 53f50b718b9c6abcf4d61c95f1e4d355934a2550 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Fri, 6 Oct 2006 10:42:21 +0000 Subject: [PATCH] Cache the package database the first time it is read This was a slight oversight on my part, I intended to store the pristine database in the pkgDatabase of DynFlags, but managed to forget to do it. --- compiler/main/Packages.lhs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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) -- 1.7.10.4