1 import "Reflection" (moduleDependencyGraph)
\r
2 import "Visualization/GGraph"
\r
4 showModuleDependencyGraph :: <Proc> ()
\r
5 showModuleDependencyGraph = do
\r
6 graph = newGGraph [Rankdir "LR"] $ \r -> [Label r, Shape "rect"]
\r
7 for moduleDependencyGraph $ \(moduleName, deps) ->
\r
8 for (filter interestingDependency deps) $ \(depModuleName, localName, importSpec) ->
\r
9 newGEdge graph moduleName depModuleName []
\r
12 interestingDependency (moduleName, localName, importSpec) = not (startsWith moduleName "http:") && localName != Nothing