X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fmain%2FPackages.lhs;h=a7c01aef6adcfd5a6f79cd5278484d28021c48bd;hb=e314b86f6290e5440a46cd5cc29f7878cb78c6fb;hp=982085437cad9f5ccb0bfc21deacba20ba605938;hpb=d74b100eaa9e782710b752805ac148e91e5c6850;p=ghc-hetmet.git

diff --git a/compiler/main/Packages.lhs b/compiler/main/Packages.lhs
index 9820854..a7c01ae 100644
--- a/compiler/main/Packages.lhs
+++ b/compiler/main/Packages.lhs
@@ -19,7 +19,6 @@ module Packages (
 
 	-- * Inspecting the set of packages in scope
 	getPackageIncludePath,
-	getPackageCIncludes,
 	getPackageLibraryPath,
 	getPackageLinkOpts,
 	getPackageExtraCcOpts,
@@ -593,11 +592,6 @@ getPackageIncludePath dflags pkgs = do
   ps <- getPreloadPackagesAnd dflags pkgs
   return (nub (filter notNull (concatMap includeDirs ps)))
 
-	-- includes are in reverse dependency order (i.e. rts first)
-getPackageCIncludes :: [PackageConfig] -> IO [String]
-getPackageCIncludes pkg_configs = do
-  return (reverse (nub (filter notNull (concatMap includes pkg_configs))))
-
 getPackageLibraryPath :: DynFlags -> [PackageId] -> IO [String]
 getPackageLibraryPath dflags pkgs = do 
   ps <- getPreloadPackagesAnd dflags pkgs