From b07ed2188bb5f5824d27ee821b3d6e2549618963 Mon Sep 17 00:00:00 2001
From: davve <davve@dtek.chalmers.se>
Date: Sun, 4 Feb 2007 19:33:02 +0000
Subject: Comment out minf_iface based stuff

---
 src/GHCUtils.hs | 5 +++--
 src/Main.hs     | 7 +++++--
 2 files changed, 8 insertions(+), 4 deletions(-)

(limited to 'src')

diff --git a/src/GHCUtils.hs b/src/GHCUtils.hs
index 4b6efdbd..2c732923 100644
--- a/src/GHCUtils.hs
+++ b/src/GHCUtils.hs
@@ -19,7 +19,8 @@ getMainDeclBinder (ForD (ForeignImport name _ _)) = Just (unLoc name)
 getMainDeclBinder (ForD (ForeignExport name _ _)) = Nothing
 getMainDeclBinder _ = Nothing
 
-modInfoName = moduleName . mi_module . minf_iface
-modInfoMod  = mi_module . minf_iface 
+-- To keep if if minf_iface is re-introduced
+--modInfoName = moduleName . mi_module . minf_iface
+--modInfoMod  = mi_module . minf_iface 
 
 trace_ppr x y = trace (showSDoc (ppr x)) y
diff --git a/src/Main.hs b/src/Main.hs
index 5763e90b..db6b0775 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -1212,6 +1212,7 @@ packageModules pkgInfo = map (mkModule (pkgId pkgInfo)) moduleNames
 pkgId :: InstalledPackageInfo -> PackageId
 pkgId = mkPackageId . package 
 
+{-
 -- | Topologically sort a list of modules that belong to an external package,
 -- using the dependency information available in the ModIface structure for 
 -- each module. 
@@ -1224,6 +1225,7 @@ sortPackageModules modinfos = flattenSCCs $ stronglyConnComp nodes
                             modNames = (map fst . dep_mods . mi_deps) iface
                             modName  = moduleName (mi_module iface)
                         in (modinfo, modName, modNames)
+-}
 
 -- | For each module in the list, try to retrieve a ModuleInfo structure  
 moduleInfo :: Session -> [Module] -> IO (Maybe [ModuleInfo])
@@ -1264,7 +1266,7 @@ getPackage session pkgInfo = do
     Just x -> return x
     Nothing -> throwE "Could not get ModuleInfo for all exposed modules." 
 
-  let modInfos' = sortPackageModules modInfos
+  --let modInfos' = sortPackageModules modInfos
 
   return $ PackageData {
     pdModules  = modules,
@@ -1273,7 +1275,7 @@ getPackage session pkgInfo = do
   } 
 
 -- | Build a package doc env out of a topologically sorted list of modules
-packageDocEnv :: [ModuleInfo] -> Map Name Name
+{-packageDocEnv :: [ModuleInfo] -> Map Name Name
 packageDocEnv modInfos = foldl addModuleEnv Map.empty (reverse modInfos)
   where
     addModuleEnv oldEnv thisMod 
@@ -1289,6 +1291,7 @@ packageDocEnv modInfos = foldl addModuleEnv Map.empty (reverse modInfos)
         keepOld env n = Map.insertWith (\new old -> old) n 
                         (nameSetMod n modName) env
         keepNew env n = Map.insert n (nameSetMod n modName) env
+-}
         
 -- | Try to create a PackageData for each package in the session except for 
 -- rts. Print a warning on stdout if a PackageData could not be created.
-- 
cgit v1.2.3