[get rid of hoLibraries and hoUsedIds fields in the ho data type stored on disk
John Meacham <john@repetae.net>**20070825023306] hunk ./Ho/Binary.hs 43
-    put (Ho ab ac ad ae af ag ah ai aj ak al am an) = do
-	    put ab
+    put (Ho ac ad ae af ag ah ai aj ak al am) = do
hunk ./Ho/Binary.hs 55
-	    put an
hunk ./Ho/Binary.hs 56
-    ab <- get
hunk ./Ho/Binary.hs 67
-    an <- get
-    return (Ho ab ac ad ae af ag ah ai aj ak al am an)
+    return (Ho ac ad ae af ag ah ai aj ak al am)
hunk ./Ho/Build.hs 220
---type MMap = Map.Map Module (IORef
-
hunk ./Ho/Build.hs 264
-                ldeps = mempty -- [] -- Map.fromList [ x | m <- mods', Right x <- Map.lookup m (hoModules . choHo $ cho)]
hunk ./Ho/Build.hs 269
-            newHo <- return (newHo `mappend` mempty { hoLibraries = ldeps })
hunk ./Ho/Build.hs 288
-    --wdump FD.Progress $ do
-    --    fn' <- shortenPath fn
-    --    putErrLn $ "Found object file:" <+> fn'
-    --if (all (`elem` loadedLibraries) (Map.keys $ hoLibraries ho)) then do
-        --return $ Just (hh,ho { hoModules = fmap (const (Left (hohHash hh))) (hoExports ho) })
-     --   return $ Just (hh,ho)
-     --else do
-     --   putErrLn $ "No library dep for ho file:" <+> fn
-     --   return Nothing
hunk ./Ho/Build.hs 311
-    putStrLn $ "Libraries depended on:" <+> pprint (sort $ Map.toList $ hoLibraries ho)
hunk ./Ho/Build.hs 392
-            let theho =  mapHoBodies eraseE ho { hoUsedIds = mempty }
+            let theho =  mapHoBodies eraseE ho
hunk ./Ho/Type.hs 56
-    hoLibraries :: Map.Map LibraryName CheckSum,
hunk ./Ho/Type.hs 67
-    hoRules :: Rules,
-    hoUsedIds :: IdSet
+    hoRules :: Rules
hunk ./Ho/Type.hs 71
-    mempty = Ho mempty mempty mempty mempty mempty mempty mempty mempty mempty mempty mempty mempty mempty
+    mempty = Ho mempty mempty mempty mempty mempty mempty mempty mempty mempty mempty mempty
hunk ./Ho/Type.hs 73
-        hoLibraries = hoLibraries a `mappend` hoLibraries b,
hunk ./Ho/Type.hs 83
-        hoRules = hoRules a `mappend` hoRules b,
-        hoUsedIds = hoUsedIds a `mappend` hoUsedIds b
+        hoRules = hoRules a `mappend` hoRules b
hunk ./Main.hs 178
-        (ds,uids) = runWriter $ annotateDs (choVarMap accumho') (\_ -> return) letann lamann (Map.elems $ hoEs ho')
+        -- XXX do we need to do this?
+        ds = runIdentity $ annotateDs (choVarMap accumho') (\_ -> return) letann lamann (Map.elems $ hoEs ho')
+
hunk ./Main.hs 190
-    return $ accumho' `mappend` mempty { choVarMap = newVarMap, choExternalNames = idMapToIdSet newVarMap, choHo = ho { hoUsedIds = uids, hoEs = programEsMap prog } }
+    return $ accumho' `mappend` mempty { choVarMap = newVarMap, choExternalNames = idMapToIdSet newVarMap, choHo = ho { hoEs = programEsMap prog } }
hunk ./Main.hs 434
-        hoRules = hoRules ho' `mappend` rules,
-        hoUsedIds = collectIds (ELetRec (programDs prog) Unknown)
+        hoRules = hoRules ho' `mappend` rules