Merge branch 'feature/funcwrite'

[simantics/platform.git] / bundles / org.simantics.modeling / scl / Simantics / Issue.scl

diff --git a/bundles/org.simantics.modeling/scl/Simantics/Issue.scl b/bundles/org.simantics.modeling/scl/Simantics/Issue.scl
index c7628bc93cfaf2853af0033e561d2c4b5ddf8d27..e09297750d680e90d2bc55081e285d6d3f12fa45 100644 (file)
--- a/bundles/org.simantics.modeling/scl/Simantics/Issue.scl
+++ b/bundles/org.simantics.modeling/scl/Simantics/Issue.scl
@@ -6,11 +6,11 @@ type Issue = Resource
 type Severity = Resource
     
 issuesOf :: Model -> <ReadGraph> [Issue]
-issuesOf model = recurse ISSUE.Issue (toResource model)
+issuesOf model = recurse ISSUE.Issue model
   where
     recurse t r = do
-        cs = resourceChildrenOf r 
-        issues = map fromResource $ filter isIssue cs
+        cs = children r 
+        issues = filter isIssue cs
         issueGrp = filter (not . isIssue) cs
         issues + concatMap (recurse t) issueGrp
     isIssue r = isInstanceOf r ISSUE.Issue