[code cleanups, make strictness less chatty, don't rename based on currently defined variables
John Meacham <john@repetae.net>**20060816105616] hunk ./E/Demand.hs 379
-    flip mapM_ nds $ \ (t,_) ->
-        putStrLn $ "strictness: " ++ pprint t ++ ": " ++ show (maybe absSig id $ Info.lookup (tvrInfo t))
+    --flip mapM_ nds $ \ (t,_) ->
+    --    putStrLn $ "strictness: " ++ pprint t ++ ": " ++ show (maybe absSig id $ Info.lookup (tvrInfo t))
hunk ./Main.hs 192
-        rules' = runIdentity $ mapBodies (annotate imap (\_ nfo -> return nfo) (\_ -> return) (\_ -> return)) (hoRules ho)
+        rules' = runIdentity $ mapBodies (annotate imapRules (\_ nfo -> return nfo) (\_ -> return) (\_ -> return)) (hoRules ho)
hunk ./Main.hs 194
-        imap = fromList [ (tvrIdent v,Just (EVar v))| (v,_) <- Map.elems (hoEs accumho `mappend` hoEs ho)]
+        imap = fromList [ (tvrIdent v,Just (EVar v))| (v,_) <- Map.elems (hoEs accumho)]
+        imapRules = fromList [ (tvrIdent v,Just (EVar v))| (v,_) <- Map.elems (hoEs accumho `mappend` hoEs ho)]
hunk ./Main.hs 197
-
hunk ./Main.hs 278
-    let procE (ds,usedIds) (n,v,lc) = do
+    let procE (ds,usedIds) (v,lc) = do
hunk ./Main.hs 280
-        --lc <- coalesceLets stats lc
hunk ./Main.hs 283
-        return ((n, shouldBeExported (getExports ho') v,lc):ds,usedIds `mappend` used')
+        return ((shouldBeExported (getExports ho') v,lc):ds,usedIds `mappend` used')
hunk ./Main.hs 285
-    (ds,_allIds) <- foldM procE ([],hoUsedIds ho) ds
+    (ds,_allIds) <- foldM procE ([],hoUsedIds ho) [ (v,e) | (_,v,e) <- ds]
hunk ./Main.hs 289
-    prog <- return $ programSetDs [ (t,e) | (_,t,e) <- ds] prog
+    prog <- return $ programSetDs ds prog
hunk ./Main.hs 1104
+