Removed uses of deprecated functions

[simantics/platform.git] / bundles / org.simantics.document.ui / scl / Simantics / Document.scl

diff --git a/bundles/org.simantics.document.ui/scl/Simantics/Document.scl b/bundles/org.simantics.document.ui/scl/Simantics/Document.scl
index 2493b1c2c1d58b501858d653ce256f30860e9e16..6cd9ccebb547e1465897724880824d8aac32d110 100644 (file)
--- a/bundles/org.simantics.document.ui/scl/Simantics/Document.scl
+++ b/bundles/org.simantics.document.ui/scl/Simantics/Document.scl
@@ -15,20 +15,20 @@ importJava "org.simantics.document.ui.actions.ExportDocumentFile" where
     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