-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 model
+ where
+ recurse t r = do
+ cs = children r
+ issues = 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