Fixed all line endings of the repository

[simantics/platform.git] / bundles / org.simantics.graphviz / scl / Visualization / ModuleDependencyGraph.scl

diff --git a/bundles/org.simantics.graphviz/scl/Visualization/ModuleDependencyGraph.scl b/bundles/org.simantics.graphviz/scl/Visualization/ModuleDependencyGraph.scl
index ff73c5ae232d8f8055db1fc29c3c887428fc70d2..1139b84e1b81952c725001c75a8637d693467b8b 100644 (file)
--- a/bundles/org.simantics.graphviz/scl/Visualization/ModuleDependencyGraph.scl
+++ b/bundles/org.simantics.graphviz/scl/Visualization/ModuleDependencyGraph.scl
@@ -1,12 +1,12 @@
-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