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