[clean up Ho.Build, look for modules in combined ho file
John Meacham <john@repetae.net>**20061004011746] hunk ./Ho/Build.hs 14
-import Data.Graph(stronglyConnComp,SCC(..))
hunk ./Ho/Build.hs 21
-import qualified Data.Map as Map
-import qualified Text.PrettyPrint.HughesPJ as PPrint
hunk ./Ho/Build.hs 24
+import qualified Data.Map as Map
+import qualified Text.PrettyPrint.HughesPJ as PPrint
hunk ./Ho/Build.hs 37
-import E.Show
-import E.Traverse(emapE)
hunk ./Ho/Build.hs 39
+import E.Show
hunk ./Ho/Build.hs 41
+import E.Traverse(emapE)
hunk ./Ho/Build.hs 51
+import Name.Id
hunk ./Ho/Build.hs 54
-import qualified FlagDump as FD
-import qualified FlagOpts as FO
hunk ./Ho/Build.hs 55
-import Warning
-import Name.Id
hunk ./Ho/Build.hs 56
+import Warning
+import qualified FlagDump as FD
+import qualified FlagOpts as FO
+import qualified Util.Graph as G
hunk ./Ho/Build.hs 118
-    let scc = map f $  stronglyConnComp [ (x,fromModule $ hsModuleName hs,hsModuleRequires hs) | x@(hs,fd,honm) <- ms ]
-        f (AcyclicSCC x) = [x]
-        f (CyclicSCC xs) = xs
+    let scc = G.sccGroups (G.newGraph ms (fromModule . hsModuleName . fst3) (hsModuleRequires . fst3) )
hunk ./Ho/Build.hs 125
-                mdeps = [ (m,dep) | m <- mods', Left dep <- Map.lookup m (hoModules ho)]
+                mdeps = [ (m,dep) | m <- mods', Left dep <- Map.lookup m (hoModules ho')]
hunk ./Ho/Build.hs 137
+fst3 (x,_,_) = x
+
hunk ./Ho/Build.hs 290
--- | Find a module, returning the combined up to date Ho files and the parsed
+-- | Find a module, returning just the read Ho file and the parsed
hunk ./Ho/Build.hs 427
-
-
-initialHo = mempty { hoEs = mempty , hoClassHierarchy = mempty, hoDataTable = dataTablePrims  }  where
-    --ch = foldl addOneInstanceToHierarchy mempty (map ((,) False) primitiveInsts)
-    --es = Map.fromList [  (n,(setProperties [prop_INSTANCE] $ tVr (atomIndex $ toAtom n) (getType v),v)) |  (n,v) <- constantMethods ]
+initialHo = mempty { hoDataTable = dataTablePrims  }