X-Git-Url: https://gerrit.simantics.org/r/gitweb?a=blobdiff_plain;f=bundles%2Forg.simantics.modeling%2Fscl%2FSimantics%2FSubscription.scl;h=2672067c4a8833fa4725f4abc2fc20a48200dff7;hb=0f7642b3bd653687a880733e4673b450e3612c6c;hp=111e88b015f72842d5950462141a66a25c7a7d80;hpb=0ae2b770234dfc3cbb18bd38f324125cf0faca07;p=simantics%2Fplatform.git

diff --git a/bundles/org.simantics.modeling/scl/Simantics/Subscription.scl b/bundles/org.simantics.modeling/scl/Simantics/Subscription.scl
index 111e88b01..2672067c4 100644
--- a/bundles/org.simantics.modeling/scl/Simantics/Subscription.scl
+++ b/bundles/org.simantics.modeling/scl/Simantics/Subscription.scl
@@ -163,7 +163,7 @@ Example: create a subscription of module PO01 attribute PO11_PRESSURE to the def
     #430121
 
 """
-addSubscription :: Variable -> <WriteGraph,ReadGraph> Subscription
+addSubscription :: Variable -> <WriteGraph> Subscription
 addSubscription variable = do
     model = modelOfVariable variable
     default = defaultSubscriptionFolder model
@@ -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