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