@@ -51,17 +51,13 @@ compile codegen f tm
5151 -- TODO: traverse all names correctly
5252
5353 -- TODO: DEBUG-ONLY, remove
54− {-
5554 ist <- getIState
5655 let depMap = buildDepMap (tt_ctxt ist) used
57− let printCond (ctors, cond) = "if " ++ show (S.toList cond) ++ " -ctors- " ++ show (S.toList ctors)
58− let printDep (i, conds) = unlines . map (" "++) $ (show i : map printCond (S.toList conds))
59− let printItem (fn, deps) = unlines (show fn : map printDep (IM.toList deps))
56+ let printItem (cond, deps) = show (S.toList cond) ++ " -> " ++ show (S.toList deps)
6057 iLOG $ "USAGE ANALYSIS:\n" ++ unlines (map printItem . M.toList $ depMap)
6158
6259 let minUse = minimalUsage depMap
6360 iLOG $ "MINIMAL USAGE:\n" ++ unlines (map (\(n,is) -> show n ++ " -> " ++ show (IS.toList is)) $ M.toList minUse)
64− -}
6561 -- END TODO
6662
6763 maindef <- irMain tm