Merge branch 'feature/funcwrite'

[simantics/platform.git] / bundles / org.simantics.modeling / scl / Simantics / Subscription.scl

diff --git a/bundles/org.simantics.modeling/scl/Simantics/Subscription.scl b/bundles/org.simantics.modeling/scl/Simantics/Subscription.scl
index 111e88b015f72842d5950462141a66a25c7a7d80..01bc3f0580a4f366d8a85b00cdb5a322507831f5 100644 (file)
--- a/bundles/org.simantics.modeling/scl/Simantics/Subscription.scl
+++ b/bundles/org.simantics.modeling/scl/Simantics/Subscription.scl
@@ -196,10 +196,7 @@ Example: Model contains two subscription folders called **Default** and **Pressu
 
 """
 subscriptionFoldersOf :: Model -> <ReadGraph> [SubscriptionFolder]
-subscriptionFoldersOf model = recurse (toResource model)
+subscriptionFoldersOf model = recurse model
   where
-    recurse r = do
-        cs = resourceChildrenOf r
-        folders = map fromResource $ filter isSubscriptionFolder cs
-        folders
+    recurse r = filter isSubscriptionFolder (children r)
     isSubscriptionFolder r = isInstanceOf r MOD.Subscription