exportDocument :: Resource -> String -> <Proc> ()
documentsFolders :: Model -> <ReadGraph> [Resource]
-documentsFolders model = recurse DOCUMENT.DocumentLibrary (toResource model)
+documentsFolders model = recurse DOCUMENT.DocumentLibrary model
where
recurse t r = do
- cs = resourceChildrenOf r
+ cs = children r
libraries = filter isLibrary cs
libraryGrp = filter (not . isLibrary) cs
libraries + concatMap (recurse t) libraryGrp
isLibrary r = isInstanceOf r DOCUMENT.DocumentLibrary
documents :: Model -> <ReadGraph> [Resource]
-documents model = recurse DOCUMENT.Document (toResource model)
+documents model = recurse DOCUMENT.Document model
where
recurse t r = do
- cs = resourceChildrenOf r
+ cs = children r
documents = filter isDocument cs
documentFolder = filter (not . isDocument) cs
documents + concatMap (recurse t) documentFolder