X-Git-Url: https://gerrit.simantics.org/r/gitweb?a=blobdiff_plain;f=bundles%2Forg.simantics.modeling.ui%2Fscl%2FSimantics%2FLibrary.scl;fp=bundles%2Forg.simantics.modeling.ui%2Fscl%2FSimantics%2FLibrary.scl;h=ee4d7885eac17b4831623d858bbc56afde879262;hb=a42562ce5347643cf8303eb4c6acef4d65c9e210;hp=8277568556964818b6d518229d1eebc4dd381f0a;hpb=d615f9ce52ccde4f0de408d6345d033faa4590e6;p=simantics%2Fplatform.git

diff --git a/bundles/org.simantics.modeling.ui/scl/Simantics/Library.scl b/bundles/org.simantics.modeling.ui/scl/Simantics/Library.scl
index 827756855..ee4d7885e 100644
--- a/bundles/org.simantics.modeling.ui/scl/Simantics/Library.scl
+++ b/bundles/org.simantics.modeling.ui/scl/Simantics/Library.scl
@@ -21,11 +21,11 @@ importJava "org.simantics.modeling.ui.SCLLibrary" where
     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