diff options
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 8 |
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 |