aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock
diff options
context:
space:
mode:
authorDavid Waern <david.waern@gmail.com>2008-08-12 23:02:02 +0000
committerDavid Waern <david.waern@gmail.com>2008-08-12 23:02:02 +0000
commitc7e0756e7cd51d74f7906534e588c462cea8df8d (patch)
treeae9616ee0a6d5f36156f95fdb0d30c3e7e989f9b /src/Haddock
parent20ee83c9b4134c90706a9a07f8267e40ab6c7057 (diff)
Comment out H.GHC.loadPackages - it is unused and doesn't build with ghc >= 6.9
Diffstat (limited to 'src/Haddock')
-rw-r--r--src/Haddock/GHC.hs5
1 files changed, 3 insertions, 2 deletions
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