bundles/org.simantics.modeling/scl/Simantics/Issue.scl

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