-import "Reflection" (moduleDependencyGraph)\r
-import "Visualization/GGraph"\r
-\r
-showModuleDependencyGraph :: <Proc> ()\r
-showModuleDependencyGraph = do\r
- graph = newGGraph [Rankdir "LR"] $ \r -> [Label r, Shape "rect"]\r
- for moduleDependencyGraph $ \(moduleName, deps) ->\r
- for (filter interestingDependency deps) $ \(depModuleName, localName, importSpec) ->\r
- newGEdge graph moduleName depModuleName []\r
- showGGraph graph\r
- where\r
+import "Reflection" (moduleDependencyGraph)
+import "Visualization/GGraph"
+
+showModuleDependencyGraph :: <Proc> ()
+showModuleDependencyGraph = do
+ graph = newGGraph [Rankdir "LR"] $ \r -> [Label r, Shape "rect"]
+ for moduleDependencyGraph $ \(moduleName, deps) ->
+ for (filter interestingDependency deps) $ \(depModuleName, localName, importSpec) ->
+ newGEdge graph moduleName depModuleName []
+ showGGraph graph
+ where
interestingDependency (moduleName, localName, importSpec) = not (startsWith moduleName "http:") && localName != Nothing
\ No newline at end of file