Remove useless ReadGraph effect from addSubscription

[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..2672067c4a8833fa4725f4abc2fc20a48200dff7 100644 (file)
--- 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