From 9295199ab6f815f0dbf5e6adb3bb9396137e8bee Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Fri, 6 Oct 2006 10:51:48 +0000 Subject: [PATCH] remove unused origPkgIdMap field from PackageState --- compiler/main/Packages.lhs | 4 ---- 1 file changed, 4 deletions(-) diff --git a/compiler/main/Packages.lhs b/compiler/main/Packages.lhs index ba51f80..82e6448 100644 --- a/compiler/main/Packages.lhs +++ b/compiler/main/Packages.lhs @@ -107,9 +107,6 @@ import Control.Exception ( throwDyn ) -- in a different DLL, by setting the DLL flag. data PackageState = PackageState { - origPkgIdMap :: PackageConfigMap, -- PackageId -> PackageConfig - -- The on-disk package database - pkgIdMap :: PackageConfigMap, -- PackageId -> PackageConfig -- The exposed flags are adjusted according to -package and -- -hide-package flags, and -ignore-package removes packages. @@ -529,7 +526,6 @@ mkPackageState dflags orig_pkg_db preload0 this_package = do let new_dep_preload = filter (`notElem` preload0) dep_preload let pstate = PackageState{ preloadPackages = dep_preload, - origPkgIdMap = orig_pkg_db, pkgIdMap = pkg_db, moduleToPkgConfAll = mkModuleMap pkg_db } -- 1.7.10.4