projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
53f50b7
)
remove unused origPkgIdMap field from PackageState
author
Simon Marlow
<simonmar@microsoft.com>
Fri, 6 Oct 2006 10:51:48 +0000
(10:51 +0000)
committer
Simon Marlow
<simonmar@microsoft.com>
Fri, 6 Oct 2006 10:51:48 +0000
(10:51 +0000)
compiler/main/Packages.lhs
patch
|
blob
|
history
diff --git
a/compiler/main/Packages.lhs
b/compiler/main/Packages.lhs
index
ba51f80
..
82e6448
100644
(file)
--- 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 {
-- 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.
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,
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
}
pkgIdMap = pkg_db,
moduleToPkgConfAll = mkModuleMap pkg_db
}