From fcfc7437ddc513a51b1ec80af1c4e9079131e50f Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Fri, 8 Apr 2005 13:33:24 +0000
Subject: [PATCH] [project @ 2005-04-08 13:33:24 by simonmar] Haddock comment
 on initPackages

---
 ghc/compiler/main/Packages.lhs |    4 ++++
 1 file changed, 4 insertions(+)

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; 
-- 
1.7.10.4