X-Git-Url: https://gerrit.simantics.org/r/gitweb?a=blobdiff_plain;f=bundles%2Forg.simantics.document.ui%2Fscl%2FSimantics%2FDocument.scl;h=6cd9ccebb547e1465897724880824d8aac32d110;hb=a8d72a172fdc815c8a9f0f584f010f7e35286f92;hp=2493b1c2c1d58b501858d653ce256f30860e9e16;hpb=0ae2b770234dfc3cbb18bd38f324125cf0faca07;p=simantics%2Fplatform.git

diff --git a/bundles/org.simantics.document.ui/scl/Simantics/Document.scl b/bundles/org.simantics.document.ui/scl/Simantics/Document.scl
index 2493b1c2c..6cd9ccebb 100644
--- 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