1 include "Simantics/Entity" hiding (nameOf)
\r
2 import "Simantics/Model"
\r
3 import "http://www.simantics.org/Issue-1.2" as ISSUE
\r
5 type Issue = Resource
\r
6 type Severity = Resource
\r
8 issuesOf :: Model -> <ReadGraph> [Issue]
\r
9 issuesOf model = recurse ISSUE.Issue (toResource model)
\r
12 cs = resourceChildrenOf r
\r
13 issues = map fromResource $ filter isIssue cs
\r
14 issueGrp = filter (not . isIssue) cs
\r
15 issues + concatMap (recurse t) issueGrp
\r
16 isIssue r = isInstanceOf r ISSUE.Issue
\r
18 importJava "org.simantics.issues.common.IssueUtils" where
\r
19 @JavaName newUserIssueForModel
\r
20 newUserIssueForModel :: Model -> String -> Severity -> [Resource] -> <WriteGraph> Issue
\r
22 userIssueAdvanced :: Model -> String -> Severity -> [Resource] -> <WriteGraph> Issue
\r
23 userIssueAdvanced model label severity contexts = do
\r
24 newUserIssueForModel model label severity contexts
\r
26 importJava "org.simantics.issues.common.IssueUtils" where
\r
27 @JavaName newUserIssueForModel
\r
28 userIssue :: () -> <WriteGraph> Issue