1 include "Simantics/Entity" hiding (nameOf)
2 import "Simantics/Model"
4 import "http://www.simantics.org/Issue-1.2" as ISSUE
7 type Severity = Resource
9 issuesOf :: Model -> <ReadGraph> [Issue]
10 issuesOf model = recurse ISSUE.Issue model
14 issues = filter isIssue cs
15 issueGrp = filter (not . isIssue) cs
16 issues + concatMap (recurse t) issueGrp
17 isIssue r = isInstanceOf r ISSUE.Issue
19 importJava "org.simantics.issues.common.IssueUtils" where
20 @JavaName newUserIssueForModel
21 newUserIssueForModel :: Model -> String -> Severity -> [Resource] -> <WriteGraph> Issue
23 userIssueAdvanced :: Model -> String -> Severity -> [Resource] -> <WriteGraph> Issue
24 userIssueAdvanced model label severity contexts = do
25 newUserIssueForModel model label severity contexts
27 importJava "org.simantics.issues.common.IssueUtils" where
28 @JavaName newUserIssueForModel
29 userIssue :: () -> <WriteGraph> Issue
31 importJava "org.simantics.db" where
35 importJava "org.simantics.db.layer0.validation.ValidationUtils" where
36 @JavaName validateConstraintsForDomain
37 validateDomain :: Resource -> <ReadGraph> [IssueI]
39 importJava "org.simantics.modeling.utils.BatchValidations" where
41 runAllBatchValidations :: ProgressMonitor -> Resource -> Resource -> <Proc> ()
43 importJava "org.simantics.issues.common.RunActiveValidations" where
45 runActiveValidations :: ProgressMonitor -> Resource -> <Proc> ()