getLibrary :: Model -> String -> <ReadGraph> Library
librariesOf :: Model -> <ReadGraph> [Library]
-librariesOf model = recurse L0.Library (toResource model)
+librariesOf model = recurse L0.Library model
where
recurse t r = do
- cs = resourceChildrenOf r
- libraries = map fromResource $ filter isLibrary cs
+ cs = children r
+ libraries = filter isLibrary cs
libraryGrp = filter (not . isLibrary) cs
libraries + concatMap (recurse t) libraryGrp
isLibrary r = isInstanceOf r L0.Library
\ No newline at end of file