--- a/tools/unitCycles.hs	Wed Nov 17 20:58:23 2010 +0300
+++ b/tools/unitCycles.hs	Wed Nov 17 22:07:03 2010 +0300
@@ -14,8 +14,6 @@
 extractUnits (Program (Identificator name) (Implementation (Uses idents) _ _) _) = ("program " ++ name, map unident idents)
 extractUnits (Unit (Identificator name) (Interface (Uses idents1) _) (Implementation (Uses idents2) _ _) _ _) = (name, map unident $ idents1 ++ idents2)
 
--- stronglyConnComp :: Ord key => [(node, key, [key])] -> [SCC node]
-
 f :: [(String, [String])] -> String
 f = unlines . map showSCC . stronglyConnComp . map (\(a, b) -> (a, a, b))
     where