[count loops on CallDep
martin.hofmann@uni-bamberg.de**20091014113758] hunk ./src/Data/CallDependencies.hs 153
+-- counts the loops in the call graph, i.e., edges from a node to itself
+loops :: CallDep -> Int 
+loops = (ufold countLoops 0) . unC . callings 
+    where
+    countLoops c i = (i+) . length $ filter ((node' c)==) (suc' c) 
+
hunk ./src/Data/CallDependencies.hs 304
- 
--- -----------------------------------------------------------------------------           
--- -----------------------------------------------------------------------------
hunk ./src/Data/CallDependencies.hs 328
+-- -----------------------------------------------------------------------------           
+-- -----------------------------------------------------------------------------
+
+