Fixed all line endings of the repository

[simantics/platform.git] / bundles / org.simantics.modeling / scl / Simantics / Issue.scl

diff --git a/bundles/org.simantics.modeling/scl/Simantics/Issue.scl b/bundles/org.simantics.modeling/scl/Simantics/Issue.scl
index 79d16ac1b9ca19167f07cee35018089e831152e5..c7628bc93cfaf2853af0033e561d2c4b5ddf8d27 100644 (file)
--- a/bundles/org.simantics.modeling/scl/Simantics/Issue.scl
+++ b/bundles/org.simantics.modeling/scl/Simantics/Issue.scl
@@ -1,28 +1,28 @@
-include "Simantics/Entity" hiding (nameOf)\r
-import "Simantics/Model"\r
-import "http://www.simantics.org/Issue-1.2" as ISSUE\r
-\r
-type Issue = Resource\r
-type Severity = Resource\r
-    \r
-issuesOf :: Model -> <ReadGraph> [Issue]\r
-issuesOf model = recurse ISSUE.Issue (toResource model)\r
-  where\r
-    recurse t r = do\r
-        cs = resourceChildrenOf r \r
-        issues = map fromResource $ filter isIssue cs\r
-        issueGrp = filter (not . isIssue) cs\r
-        issues + concatMap (recurse t) issueGrp\r
-    isIssue r = isInstanceOf r ISSUE.Issue\r
-    \r
-importJava "org.simantics.issues.common.IssueUtils" where\r
-    @JavaName newUserIssueForModel\r
-    newUserIssueForModel :: Model -> String -> Severity -> [Resource] -> <WriteGraph> Issue\r
-\r
-userIssueAdvanced :: Model -> String -> Severity -> [Resource] -> <WriteGraph> Issue\r
-userIssueAdvanced model label severity contexts = do\r
-    newUserIssueForModel model label severity contexts\r
-\r
-importJava "org.simantics.issues.common.IssueUtils" where\r
-    @JavaName newUserIssueForModel\r
+include "Simantics/Entity" hiding (nameOf)
+import "Simantics/Model"
+import "http://www.simantics.org/Issue-1.2" as ISSUE
+
+type Issue = Resource
+type Severity = Resource
+    
+issuesOf :: Model -> <ReadGraph> [Issue]
+issuesOf model = recurse ISSUE.Issue (toResource model)
+  where
+    recurse t r = do
+        cs = resourceChildrenOf r 
+        issues = map fromResource $ filter isIssue cs
+        issueGrp = filter (not . isIssue) cs
+        issues + concatMap (recurse t) issueGrp
+    isIssue r = isInstanceOf r ISSUE.Issue
+    
+importJava "org.simantics.issues.common.IssueUtils" where
+    @JavaName newUserIssueForModel
+    newUserIssueForModel :: Model -> String -> Severity -> [Resource] -> <WriteGraph> Issue
+
+userIssueAdvanced :: Model -> String -> Severity -> [Resource] -> <WriteGraph> Issue
+userIssueAdvanced model label severity contexts = do
+    newUserIssueForModel model label severity contexts
+
+importJava "org.simantics.issues.common.IssueUtils" where
+    @JavaName newUserIssueForModel
     userIssue :: () -> <WriteGraph> Issue
\ No newline at end of file