From c7e0756e7cd51d74f7906534e588c462cea8df8d Mon Sep 17 00:00:00 2001 From: David Waern Date: Tue, 12 Aug 2008 23:02:02 +0000 Subject: Comment out H.GHC.loadPackages - it is unused and doesn't build with ghc >= 6.9 --- src/Haddock/GHC.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'src/Haddock') diff --git a/src/Haddock/GHC.hs b/src/Haddock/GHC.hs index ff68f8bf..742c5f77 100644 --- a/src/Haddock/GHC.hs +++ b/src/Haddock/GHC.hs @@ -7,7 +7,6 @@ module Haddock.GHC ( startGhc, - loadPackages, module Haddock.GHC.Typecheck, module Haddock.GHC.Utils ) where @@ -51,6 +50,8 @@ startGhc libDir flags = do -- list of packages. The matching packages might be newer versions of the -- supplied ones. For each matching package, return its InstalledPackageInfo. +-- Commented out, since it is unused and doesn't build with GHC >= 6.9 +{- loadPackages :: Session -> [String] -> IO [InstalledPackageInfo] -- It would be better to try to get the "in scope" packages from GHC instead. @@ -86,7 +87,7 @@ loadPackages session pkgStrs = do where handleParse (Just pkg) = return (pkgName pkg) handleParse Nothing = throwE "Could not parse package identifier" - +-} -- | Try to parse dynamic GHC flags parseGhcFlags dynflags flags origFlags = do -- cgit v1.2.3