From 958797f5e0f8fd83519db6abfcec93700cd37c0a Mon Sep 17 00:00:00 2001
From: David Waern <unknown>
Date: Thu, 16 Aug 2007 17:36:23 +0000
Subject: Correct comments

---
 src/Main.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'src/Main.hs')

diff --git a/src/Main.hs b/src/Main.hs
index 65f0b5eb..0592c6fe 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -1381,17 +1381,17 @@ getPackage session pkgInfo = do
   } 
 
        
--- | Try to create a HaddockPackage for each package in the session except for 
--- rts. Print a warning on stdout if a HaddockPackage could not be created.
+-- | Try to create a HaddockPackage for each package.
+-- Print a warning on stdout if a HaddockPackage could not be created.
 getPackages :: Session -> [PackageId] -> IO [HaddockPackage]
 getPackages session packages = do
 
-  -- get InstalledPackageInfos for every package in the session
+  -- get InstalledPackageInfos for each package
   dynflags <- getSessionDynFlags session
   let pkgInfos = map (getPackageDetails (pkgState dynflags)) packages
 
   -- try to read the installed haddock information (.haddock interface file and
-  -- html path) for the packages and html path
+  -- html path) for the packages
   liftM catMaybes $ mapM tryGetPackage pkgInfos
   where
     -- try to get a HaddockPackage, warn if we can't
-- 
cgit v1.2.3