Correct comments

1 files changed, 4 insertions, 4 deletions

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