aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/Main.hs8
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