From: simonmar <unknown>
Date: Fri, 8 Apr 2005 13:33:24 +0000 (+0000)
Subject: [project @ 2005-04-08 13:33:24 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~773
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=fcfc7437ddc513a51b1ec80af1c4e9079131e50f;p=ghc-hetmet.git

[project @ 2005-04-08 13:33:24 by simonmar]
Haddock comment on initPackages
---

diff --git a/ghc/compiler/main/Packages.lhs b/ghc/compiler/main/Packages.lhs
index a7e48b8..65f8523 100644
--- a/ghc/compiler/main/Packages.lhs
+++ b/ghc/compiler/main/Packages.lhs
@@ -183,6 +183,10 @@ getPackageDetails dflags ps = expectJust "getPackageDetails" (lookupPackage (pkg
 -- ----------------------------------------------------------------------------
 -- Loading the package config files and building up the package state
 
+-- | Call this after parsing the DynFlags.  It reads the package
+-- configuration files, and sets up various internal tables of package
+-- information, according to the package-related flags on the
+-- command-line (@-package@, @-hide-package@ etc.)
 initPackages :: DynFlags -> IO DynFlags
 initPackages dflags = do 
   pkg_map <- readPackageConfigs dflags;